Sign in
llvm
/
llvm-archive
/
80a0e6b09a6ccb2f8832d59b5fb8d96f9ae994c5
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
contained.f90
blob: 3c7117744dd59e367e8622b50438064a73fc1415 [
file
] [
log
] [
blame
]
program contained
implicit
none
integer i
i
=
0
;
call testproc
(
40
)
if
(
i
.
ne
.
42
)
call abort
contains
subroutine testproc
(
p
)
implicit
none
integer p
if
(
p
.
ne
.
40
)
call abort
i
=
p
+
2
end
subroutine
end
program