Sign in
llvm
/
llvm-archive
/
276bde03595d52e26812d2712817bc876da8ee7b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
mainsub.f90
blob: f84e91f2525e645d33d79905d9a77d3612fffbbc [
file
] [
log
] [
blame
]
!
Program
to test compilation of subroutines following the main program
program mainsub
implicit
none
integer i
external test
i
=
0
call test
(
i
)
if
(
i
.
ne
.
42
)
call abort
end
program
subroutine test
(
p
)
implicit
none
integer p
p
=
42
end
subroutine