Sign in
eclipse
/
ptp
/
org.eclipse.photran
/
add107fbe20f26b89a427d0a5d3385c479f20408
/
.
/
org.eclipse.photran.core.vpg.tests
/
intro-implicit-test-code
/
crazyimplicits.f90
blob: 8a82a84159607841308c29d67d3c6635c4a287dd [
file
] [
log
] [
blame
]
program p
a
=
3
d
=
4
stop
contains
subroutine s
implicit
integer
(
a
-
c
,
g
),
real
(
d
-
e
),
type
(
t
)
(
f
),
complex
(
h
)
type t
integer n
end
type
a
=
3
b
=
3
c
=
3
d
=
3.0
e
=
3.0
f
%
n
=
3
g
=
3
h
=
(
3
,
4
)
end
subroutine
end
program