[thirdparty/gcc.git] / gcc / testsuite / g77.f-torture / noncompile / select_no_compile.f

       integer*1 one
       integer*2 two
       parameter (one=1)
       parameter (two=2)
       select case (I)
       case (one)
       case (two)
       end select
       end
Commit	Line	Data
8e5578ea	1	integer*1 one
	2	integer*2 two
	3	parameter (one=1)
	4	parameter (two=2)
	5	select case (I)
	6	case (one)
	7	case (two)
	8	end select
	9	end
	10