Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a5c8cc9a3215cfafca13d75189e3cd02fa02a1d7
/
.
/
org.eclipse.photran.core.vpg.tests
/
intro-implicit-test-code
/
bigexpression.f90
blob: a54eb80b1cc2cf8f918d389f7261336618cd05c8 [
file
] [
log
] [
blame
]
program p
integer
::
hello
contains
subroutine s
parameter
(
THREE
=
3
)
print
*,
THREE
+
2
+
63
*
twice
(
4
)
end
subroutine
integer
function
twice
(
n
)
intent
(
in
)
::
n
twice
=
2
*
n
end
function
end
program