9 lines
214 B
Fortran
9 lines
214 B
Fortran
|
! { dg-do compile }
|
||
|
program altreturn_2
|
||
|
call foo() ! { dg-error "Missing alternate return" }
|
||
|
contains
|
||
|
subroutine foo(*)
|
||
|
return
|
||
|
end subroutine
|
||
|
end program
|