Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr46755.f @ 128:fe568345ddd5
fix CbC-example
author | mir3636 |
---|---|
date | Wed, 11 Apr 2018 19:32:28 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
C { dg-do compile } C { dg-options "-O" } IMPLICIT NONE INTEGER I640,I760,I800 INTEGER I,ITER,ITMX,LENCM LOGICAL QDISK,QDW ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } 801 CONTINUE ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } 761 CONTINUE DO I=1,LENCM ENDDO DO WHILE(ITER.LT.ITMX) IF(QDW) THEN ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } 641 CONTINUE ENDIF ENDDO RETURN END