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*-*-linux*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) call abort
  13   if (black /= 127) call abort
  14   if (blue /= 128) call abort
  15 end program main