Sign in
qemu
/
meson
/
cc4cfbcad92945a1629c80664e1eb755c68905dd
/
.
/
test cases
/
fortran
/
4 self dependency
/
selfdep.f90
blob: 1a7135300efddf699392a65fa9a1726bae118511 [
file
] [
log
] [
blame
]
MODULE geom
type
::
circle
REAL
::
Pi
=
4.
*
atan
(
1.
)
REAL
::
radius
end
type circle
END
MODULE geom
PROGRAM prog
use
geom
,
only
:
circle
IMPLICIT NONE
type
(
circle
)
::
ell
ell
%
radius
=
3.
END
PROGRAM prog