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