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