Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
c2ca9f1333ac8dac834dc58836065a2f7445529e
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
rename
/
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