gcc/testsuite/gfortran.dg/pr104571.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=legacy" }
   3 ! PR fortran/104571 - ICE in resolve_elemental_actual
   4 ! Contributed by G.Steinmetz
   5
   6 program p
   7   real :: x(3)
   8   call g(x)                 ! { dg-error "Missing alternate return" }
   9 contains
  10   elemental subroutine g(*) ! { dg-error "Alternate return specifier" }
  11   end
  12 end