bencch Public

Watch 0 Fork 0 Star 0

Fortran · 136 bytes Raw Blame History

  
        1
        program broken_select
      
        2
          implicit none
      
        3
          integer :: x
      
        4
          x = 1
      
        5
        
        6
          select case (x)
      
        7
          case (1)
      
        8
            print *, 'one'
      
        9
        end program broken_select
      
        10

1	program broken_select
2	implicit none
3	integer :: x
4	x = 1
5
6	select case (x)
7	case (1)
8	print *, 'one'
9	end program broken_select
10