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
6program 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
15end program main
16