gcc/testsuite/gfortran.dg/enum_3.f90

   1 ! { dg-do compile }
   2 ! Program to test ENUM parsing errors
   3
   4 program main
   5   implicit none
   6   enum, bind (c)
   7     enumerator :: red, black = 2.2  ! { dg-error "initialized with integer expression" }
   8     enumerator :: blue = "x"  ! { dg-error "initialized with integer expression" }
   9   end enum  ! { dg-error "has no ENUMERATORS" }
  10
  11 end program main