gcc/testsuite/gfortran.dg/pr104571.f90


1
2
3
4
5
6
7
8
9
10
11
12

! { 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