! Test Case 21 Two of the Same Assign Statements | |
! Test passes and creates one select case statement with one select case | |
program two_assign_same_label_withgotos !<<<<< 1, 1, 13, 12, true, pass | |
label = 100 | |
goto 1000 | |
100 label = 100 | |
goto 1000 | |
1000 print *, "Infinite loop" | |
select case (label) | |
case (100); goto 100 | |
case default; stop "Unknown label" | |
end select | |
end program |