Sign in
eclipse
/
gerrit
/
ptp
/
org.eclipse.photran
/
879df9ffea483467329a5df64b58caf98263522a
/
.
/
org.eclipse.photran-samples
/
src-implicits-3
/
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