Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
return_1.f90
blob: a66b4c199ed20c8dddd06dc2ae9942c0442d5b5b [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
Test
cases
where
no
blank
is
required after RETURN
subroutine
sub
(*)
return
(
1
)
return1
!
{
dg
-
error
""
}
end
subroutine