Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
795f43d127ea585134f06ddf6723f0ddfd66c2aa
/
.
/
org.eclipse.photran.core.vpg.tests
/
rename-test-code
/
rename-extsub1-b.f90
blob: 4a7eb67b589cf2393ffa768ecb8a2e85bcd7449c [
file
] [
log
] [
blame
]
character
(
len
=
3
)
function
ext2
(
i
)
!
1
,
27
real
,
intent
(
in
)
::
i
external ext3
!
3
,
12
j
=
ext3
()
!
5
,
7
ext2
=
'Bye'
!
6
,
3
end
function
ext2
!
7
,
14