diff options
| author | Steven Bosscher <steven@gcc.gnu.org> | 2010-12-22 12:15:12 +0000 |
|---|---|---|
| committer | Steven Bosscher <steven@gcc.gnu.org> | 2010-12-22 12:15:12 +0000 |
| commit | 5eeac8330cbea6aa8d170473b7eab105734fb1d8 (patch) | |
| tree | 82c5bdaff6078de57138a701fa27f73eb850fe09 /gcc | |
| parent | 57809813b459dc5926d3d2f8d89dba41a73bad1e (diff) | |
| download | gcc-5eeac8330cbea6aa8d170473b7eab105734fb1d8.zip gcc-5eeac8330cbea6aa8d170473b7eab105734fb1d8.tar.gz gcc-5eeac8330cbea6aa8d170473b7eab105734fb1d8.tar.bz2 | |
* gfortran.dg/pr46755.f: Fix test case.
From-SVN: r168167
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr46755.f | 11 |
2 files changed, 10 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 65af694..1af0c54 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2010-12-22 Steven Bosscher <steven@gcc.gnu.org> + + * gfortran.dg/pr46755.f: Fix test case. + 2010-12-22 Andrey Belevantsev <abel@ispras.ru> PR rtl-optimization/45352 diff --git a/gcc/testsuite/gfortran.dg/pr46755.f b/gcc/testsuite/gfortran.dg/pr46755.f index ff764a7..adc57eb 100644 --- a/gcc/testsuite/gfortran.dg/pr46755.f +++ b/gcc/testsuite/gfortran.dg/pr46755.f @@ -4,17 +4,18 @@ C { dg-options "-O" } INTEGER I640,I760,I800 INTEGER I,ITER,ITMX,LENCM LOGICAL QDISK,QDW - ASSIGN 801 TO I800 - GOTO I800 + 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 + 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 - GOTO I760 + 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 |