Sign in
llvm
/
llvm-archive
/
7c2014e6d10413401c0984772345d9d61701eeba
/
.
/
llvm-gcc-4.0
/
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