9 lines
175 B
Fortran
9 lines
175 B
Fortran
|
! { dg-do compile }
|
||
|
! { dg-options "-std=legacy" }
|
||
|
!
|
||
|
! Test cases where no blank is required after RETURN
|
||
|
subroutine sub(*)
|
||
|
return(1)
|
||
|
return1 ! { dg-error "" }
|
||
|
end subroutine
|