[gcc.git] / gcc / testsuite / gfortran.dg / enum_5.f90

! { dg-do compile }
! Program to test ENUM parsing errors 

program main
  implicit none
  integer :: i = 1

  enum, bind (c)  ! { dg-warning "New in Fortran 2003" } 
    enumerator :: red, black = i  ! { dg-error "is a variable" }
    enumerator :: blue = 1  
  end enum junk  ! { dg-error "Syntax error" }

  blue = 10  ! { dg-error "Expected VARIABLE" }

end program main  ! { dg-excess-errors "" }
Commit	Line	Data
25d8f0a2 TS	1	! { dg-do compile }
	2	! Program to test ENUM parsing errors
	3
	4	program main
	5	implicit none
	6	integer :: i = 1
	7
	8	enum, bind (c) ! { dg-warning "New in Fortran 2003" }
df8652dc	9	enumerator :: red, black = i ! { dg-error "is a variable" }
25d8f0a2 TS	10	enumerator :: blue = 1
	11	end enum junk ! { dg-error "Syntax error" }
	12
	13	blue = 10 ! { dg-error "Expected VARIABLE" }
	14
	15	end program main ! { dg-excess-errors "" }