path: root/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