| ! Test Case 22 1 ASSIGN Label, 1 Goto Address No Default Case | |
| ! Test passes but does not include a default case in the select case statement | |
| program one_label_one_address !<<<<< 1, 1, 12, 12, false, pass | |
| label = 100 | |
| goto 1000 | |
| 100 stop | |
| ! Here is the intended "subroutine" | |
| 1000 print *, "hello" | |
| select case (label) | |
| case (100); goto 100 | |
| end select | |
| end program |