Sign in
gnu
/
gcc
/
d769c5040874bf9546f2524f3f1d2a894165f92a
/
.
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
contained.f90
blob: c6e66e88e9971423363ce811f396c7f0e8323a89 [
file
] [
log
] [
blame
]
program contained
implicit
none
integer i
i
=
0
;
call testproc
(
40
)
if
(
i
.
ne
.
42
)
STOP
1
contains
subroutine testproc
(
p
)
implicit
none
integer p
if
(
p
.
ne
.
40
)
STOP
2
i
=
p
+
2
end
subroutine
end
program
