Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
73e71635dd4a111800980048c8cedd2a6a62f142
/
.
/
org.eclipse.photran.core.vpg.tests
/
vpg-search-test-code
/
moduleInclusion.F90
blob: 55c451cf51ece7868e8f907753e57e630cbce918 [
file
] [
log
] [
blame
]
PROGRAM hi
!
this
should work
USE moduleZiggurat
IMPLICIT NONE
REAL
::
x
INTEGER
::
i
DO i
=
1
,
10000
x
=
uni
(
)
END
DO
WRITE
(*,*)
x
END
PROGRAM hi