Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
73e71635dd4a111800980048c8cedd2a6a62f142
/
.
/
org.eclipse.photran.core.vpg.tests
/
intro-implicit-test-code
/
bigexpression.f90
blob: 6de8cd08bc836fc629142f60203e0ce948b3452d [
file
] [
log
] [
blame
]
program p
integer
::
hello
intrinsic flush
call s
call flush
;
stop
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