| ! { dg-do compile } | |
| ! { dg-options "-std=legacy" } | |
| ! PR fortran/104571 - ICE in resolve_elemental_actual | |
| ! Contributed by G.Steinmetz | |
| program p | |
| real :: x(3) | |
| call g(x) ! { dg-error "Missing alternate return" } | |
| contains | |
| elemental subroutine g(*) ! { dg-error "Alternate return specifier" } | |
| end | |
| end |