rt_gccstream/gcc/testsuite/gfortran.dg/enum_3.f90

12 lines
344 B
Fortran

! { dg-do compile }
! Program to test ENUM parsing errors
program main
implicit none
enum, bind (c)
enumerator :: red, black = 2.2 ! { dg-error "initialized with integer expression" }
enumerator :: blue = "x" ! { dg-error "initialized with integer expression" }
end enum ! { dg-error "has no ENUMERATORS" }
end program main