Sign in
gnu
/
gcc
/
edec2660ff4890ecf8cc191f7c92cf527de51fe2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
altreturn_9_1.f90
blob: 9549869a6beeba94c6d8ebe1d37867054efd2bb4 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=gnu"
}
!
See
altreturn_9_0
.
f90
subroutine
sub
(
i
,
*,
j
)
if
(
i
==
10
.
and
.
j
==
20
)
return
1
return
end
subroutine
sub