Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
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