old-autovect-branch/gcc/testsuite/gfortran.dg/enum_9.f90

   1 ! { dg-do run }
   2 ! { dg-options "-fshort-enums" }
   3 ! Program to test enumerations when option -fshort-enums is given
   4
   5 program main
   6   implicit none
   7   enum, bind (c)  ! { dg-warning "New in Fortran 2003" }
   8     enumerator :: red, black = 127
   9     enumerator blue
  10   end enum
  11   if (red /= 0) call abort
  12   if (black /= 127) call abort
  13   if (blue /= 128) call abort
  14 end program main