Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.fortran-torture/compile/do_1.f90 @ 158:494b0b89df80 default tip
...
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 25 May 2020 18:13:55 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! 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