| ! { dg-do compile } | |
| ! { dg-additional-options "-fsplit-loops -fno-tree-dominator-opts -std=legacy -w" } | |
| program jr | |
| integer :: w5, pg, zh | |
| w5 = 0 | |
| write (w5) | |
| assign 0002 to w5 | |
| do pg = 1, 3 | |
| if (pg .eq. 1) then | |
| do zh = 1, pg | |
| end do | |
| else | |
| goto w5 | |
| 0001 zh = 0 | |
| 0002 zh = 0 | |
| assign 0001 to w5 | |
| endif | |
| end do | |
| end |