Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
enum_1.f90
blob: 73c17307086c8594a7a14a7685ef5ff74a705a95 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Program
to test ENUM parsing
program main
implicit
none
enum
,
bind
(
c
)
enumerator
::
red
,
black
enumerator blue
end
enum
if
(
red
/=
0
)
STOP
1
end
program main