! 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