gcc/testsuite/gfortran.dg/enum_5.f90

   1 ! { dg-do compile }
   2 ! Program to test ENUM parsing errors
   3
   4 program main
   5   implicit none
   6   integer :: i = 1
   7
   8   enum, bind (c)
   9     enumerator :: red, black = i  ! { dg-error "is a variable" }
  10     enumerator :: blue = 1
  11   end enum junk  ! { dg-error "Syntax error" }
  12
  13   blue = 10  ! { dg-error " assign to a named constant" }
  14
  15 end program main  ! { dg-error "Expecting END ENUM" }
  16  ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }