This commit was manufactured by cvs2svn to create branch 'gomp-branch'.

[official-gcc.git] / gcc / testsuite / gfortran.dg / g77 / select_no_compile.f

c { dg-do compile }
       integer*1 one
       integer*2 two
       parameter (one=1)
       parameter (two=2)
       select case (I)
       case (one) ! { dg-error "Expression in CASE statement" "" }
       case (two) ! { dg-error "Expression in CASE statement" "" }
       end select
       end