gcc/testsuite/gfortran.dg/enum_1.f90

   1 ! { dg-do run }
   2 ! Program to test ENUM parsing
   3
   4 program main
   5   implicit none
   6   enum, bind (c)
   7     enumerator :: red, black
   8     enumerator blue
   9   end enum
  10   if (red /= 0) call abort
  11 end program main