2 ! { dg-prune-output "Obsolescent feature: Alternate-return argument" }
3 ! PR fortran/103717 - ICE in doloop_code
4 ! Contributed by G.Steinmetz
9 call s(i
) ! { dg-error "Missing alternate return specifier" }
16 recursive subroutine s(*)
19 call s(i
) ! { dg-error "Missing alternate return specifier" }