gcc/testsuite/gfortran.dg/enum_6.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 :: sun, mon = 2
  10     i = 2  ! { dg-error "Unexpected" }
  11     enumerator :: wed = 1
  12   end enum
  13
  14   i = 1
  15
  16   enum, bind (c)  ! { dg-error "Unexpected" }
  17     enumerator :: red, black = 2  ! { dg-error "ENUM definition statement expected" }
  18     enumerator :: blue = 1  ! { dg-error "ENUM definition statement expected" }
  19   end enum  ! { dg-excess-errors "Expecting END PROGRAM" }
  20
  21 end program main