! { dg-do compile }
program altreturn_2
call foo() ! { dg-error "Missing alternate return" }
contains
subroutine foo(*)
return
end subroutine
end program