Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
6df6cffdd4293044abe489eada02a2c34e14b447
/
.
/
org.eclipse.photran.core.vpg.tests
/
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