gcc/testsuite/gfortran.dg/enum_4.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
   8     enumerator :: blue = 1, red  ! { dg-error "already" }
   9   end enum
  10
  11   enum, bind (c)
  12     enumerator :: r, b(10) = 2  ! { dg-error "cannot be array" }
  13     enumerator , save :: g = 1  ! { dg-error "cannot have attributes" }
  14   end  ! { dg-error " END ENUM" }
  15
  16 end program main  ! { dg-excess-errors "" }