gcc/testsuite/gfortran.dg/altreturn_2.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=gnu" }
   3
   4        program altreturn_2
   5          call foo()  ! { dg-error "Missing alternate return" }
   6        contains
   7          subroutine foo(*)
   8            return
   9          end subroutine
  10        end program