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