1! { dg-do compile }
2! Program to test ENUM parsing errors
3
4program main
5  implicit none
6  enum, bind (c)
7    enumerator :: red, black = 2.2  ! { dg-error "initialized with integer expression" }
8    enumerator :: blue = "x"  ! { dg-error "initialized with integer expression" }
9  end enum  ! { dg-error "has no ENUMERATORS" }
10
11end program main
12