| ! Test 8: 2 ASSIGN Labels, goto same address | |
| ! Test passes, creating two select case statements | |
| program two_labels_same_address !<<<<< 1, 1, 20, 12, true, pass | |
| label1 = 100 | |
| goto 1000 | |
| 100 print *, "Return to here" | |
| stop | |
| label2 = 100 | |
| goto 2000 | |
| ! Here is the intended "subroutine" | |
| 1000 print *, "This code will get executed" | |
| select case (label1) | |
| case (100); goto 100 | |
| case default; stop "Unknown label" | |
| end select | |
| 2000 print *, "This will not get executed since we return back since the other case stops" | |
| select case (label2) | |
| case (100); goto 100 | |
| case default; stop "Unknown label" | |
| end select | |
| end program |