gcc/testsuite/gfortran.dg/enum_9.f90

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