11556Srgrimes! { dg-do run }
21556Srgrimes! Program to test ENUM parsing
31556Srgrimes
41556Srgrimesprogram main
51556Srgrimes  implicit none
61556Srgrimes  enum, bind (c)
71556Srgrimes    enumerator :: red, black
81556Srgrimes    enumerator blue
91556Srgrimes  end enum
101556Srgrimes  if (red /= 0) call abort
111556Srgrimesend program main
121556Srgrimes