Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
a21b85c92aeb0491365dd3fefba9574145955477
/
.
/
org.eclipse.photran.core.vpg.tests
/
refactoring-test-code
/
add-subroutine-parameter
/
test9-dontsetvariabletype
/
add_subroutine_parameter_9.f90.result
blob: e200fa0fd7b43bbefa581b390de5f5b5e733881d [
file
] [
log
] [
blame
]
program dontsetvariabletype
!
Tests
that the
default
variable type
is
set
to real
end
program dontsetvariabletype
subroutine
sub
(
y
,
z
)
!<<<<<
4
,
1
,
4
,
5
,
intent
(
in
)
::
y
,
0
,
3
,
pass
real
,
intent
(
in
)
::
y
integer
,
intent
(
in
)
::
z
end
subroutine