Subversion Repositories openrisc_me

! { dg-do compile }

! Program to test ENUM parsing errors

program main

  implicit none

  enum, bind (c)

    enumerator :: red, black = 2.2  ! { dg-error "initialized with integer expression" }

    enumerator :: blue = "x"  ! { dg-error "initialized with integer expression" }

  end enum  ! { dg-error "has no ENUMERATORS" }

end program main