Sign in
gnu
/
gcc
/
fe115e3147d7d8adf8c94451cc33c9b177293f29
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
return_1.f90
blob: a8067b03c08c5317f4d6eb2a5f0ec8a313930f62 [
file
] [
log
] [
blame
]
!
{
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