Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
c2ca9f1333ac8dac834dc58836065a2f7445529e
/
.
/
org.eclipse.photran.core.vpg.tests
/
search-test-code
/
nameScoping.F90
blob: 66fd2c3e26f674ec511a814318acea9c91053964 [
file
] [
log
] [
blame
]
SUBROUTINE pgmName
PRINT
*,
'Hello'
END
SUBROUTINE pgmName
PROGRAM pgmName
!
this
should work
USE pgmName
IMPLICIT NONE
REAL
::
x
INTEGER
::
i
DO i
=
1
,
10000
x
=
hi
(
)
END
DO
WRITE
(*,*)
x
CALL pgmName
END
PROGRAM pgmName