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 :: sun, mon = 2
10    i = 2  ! { dg-error "Unexpected" }
11    enumerator :: wed = 1
12  end enum
13
14  i = 1
15
16  enum, bind (c)  ! { dg-error "Unexpected" }
17    enumerator :: red, black = 2  ! { dg-error "ENUM definition statement expected" }
18    enumerator :: blue = 1  ! { dg-error "ENUM definition statement expected" }
19  end enum  ! { dg-error "Expecting END PROGRAM" }
20
21end program main
22