blob: d73050051639c0b6a75405867916f011ed78be02 [file] [log] [blame]
program test2
implicit none
integer :: n
n = 1
goto (10, 20, 30) n*2 !<<<<< 8, 5, 8, 30, pass
print *, "It wasn't handled"
stop
10 print *, "It was one"
stop
20 print *, "It was two"
stop
30 print *, "It was three"
stop
end program test2