Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
73e71635dd4a111800980048c8cedd2a6a62f142
/
.
/
org.eclipse.photran-samples
/
src-fortran2003
/
char-fn-test.f03
blob: ba14363e5b6f2e07051b40e503e7f8f27a800050 [
file
] [
log
] [
blame
]
!
Test
of a
function
returning a
string
--
JO
1
/
29
/
09
print
*,
c
()
contains
character
(
len
=
len
(
"Hello"
))
function
c
()
c
=
"Hello"
end
function
end
program