      program test
      i = 10
      check: select case (i)
      case (1)
       i=1 
      case (2)
       i=2 
      end select check
      end

