| ! More complicated PROGRAM to check that outer GOTOs | |
| ! are retargeted a CONTINUE statement that is inserted | |
| ! but END IF label is not removed since inner GOTO | |
| ! targets it. | |
| PROGRAM branch_to_immediate_end_if_from_else | |
| INTEGER :: sum, i | |
| sum = 0 | |
| DO 20, i = 1, 10 | |
| IF (MOD(i,2).eq.0) THEN | |
| sum = sum + i | |
| IF (sum.ge.100) THEN | |
| GOTO 10 | |
| ELSE | |
| sum = sum + sum | |
| GOTO 30 | |
| 30 END IF !<<<<< 16, 1, 16, 9, fail-initial | |
| 40 CONTINUE | |
| 10 END IF | |
| 20 CONTINUE | |
| PRINT *, 'sum:', sum | |
| END PROGRAM branch_to_immediate_end_if_from_else |