gcc/testsuite/g77.f-torture/noncompile/select_no_compile.f

   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