gcc/testsuite/gfortran.dg/altreturn_2.f90

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