| ! test various forms of the DO statement | |
| ! inspired by PR14066 | |
| LOGICAL L | |
| DO i=1,10 | |
| END DO | |
| DO 10 i=1,20 | |
| DO 20,j=1,10,2 | |
| 20 CONTINUE | |
| 10 END DO | |
| L = .TRUE. | |
| DO WHILE(L) | |
| L = .FALSE. | |
| END DO | |
| DO 50 WHILE(.NOT.L) | |
| L = .TRUE. | |
| 50 CONTINUE | |
| DO | |
| DO 30 | |
| DO 40 | |
| 40 CONTINUE | |
| 30 END DO | |
| END DO | |
| outer: DO i=1,20 | |
| inner: DO,j=i,30 | |
| IF (j.EQ.2*i) CYCLE outer | |
| END DO inner | |
| END DO outer | |
| END |