1! { dg-do compile }
2! Program to test ENUM parsing errors
3
4program main
5  implicit none
6  integer :: i = 1
7
8  enum, bind (c)
9    enumerator :: red, black = i  ! { dg-error "is a variable" }
10    enumerator :: blue = 1
11  end enum junk  ! { dg-error "Syntax error" }
12
13  blue = 10  ! { dg-error "Unexpected assignment" }
14
15end program main  ! { dg-error "Expecting END ENUM" }
16 ! { dg-error "Unexpected end of file" "" { target "*-*-*" } 0 }
17