From: Jerry DeLisle Date: Fri, 22 Jun 2007 01:54:27 +0000 (+0000) Subject: re PR fortran/31162 (missing warning for real do-loops with implicit typed variables) X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=aa7393d96a504d2290fbd06806a9bc24304c195f;p=platform%2Fupstream%2Fgcc.git re PR fortran/31162 (missing warning for real do-loops with implicit typed variables) 2007-06-21 Jerry DeLisle PR fortran/31162 * gfortran.dg/assign.f90: Update test. * gfortran.dg/real_do_1.f90: Update test. * gfortran.dg/gomp/omp_do1.f90: Update test. * gfortran.dg/warnings_are_errors_1.f: Update test. * gfortran.dg/g77/20010519-1.f: Update test. * gfortran.dg/g77/pr9258.f: Update test. * gfortran.dg/g77/960317-1.f: Update test. From-SVN: r125939 --- diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index cdcf8fb..56e64b5 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,14 @@ +2007-06-21 Jerry DeLisle + + PR fortran/31162 + * gfortran.dg/assign.f90: Update test. + * gfortran.dg/real_do_1.f90: Update test. + * gfortran.dg/gomp/omp_do1.f90: Update test. + * gfortran.dg/warnings_are_errors_1.f: Update test. + * gfortran.dg/g77/20010519-1.f: Update test. + * gfortran.dg/g77/pr9258.f: Update test. + * gfortran.dg/g77/960317-1.f: Update test. + 2007-06-21 Richard Guenther PR tree-optimization/32453 diff --git a/gcc/testsuite/gfortran.dg/assign.f90 b/gcc/testsuite/gfortran.dg/assign.f90 index 516a3d7..2d9e497 100644 --- a/gcc/testsuite/gfortran.dg/assign.f90 +++ b/gcc/testsuite/gfortran.dg/assign.f90 @@ -3,6 +3,6 @@ program test integer i common i - assign 2000 to i ! { dg-warning "Obsolete: ASSIGN statement" } + assign 2000 to i ! { dg-warning "Deleted feature: ASSIGN statement" } 2000 continue end diff --git a/gcc/testsuite/gfortran.dg/g77/20010519-1.f b/gcc/testsuite/gfortran.dg/g77/20010519-1.f index e9336f1..beead98 100644 --- a/gcc/testsuite/gfortran.dg/g77/20010519-1.f +++ b/gcc/testsuite/gfortran.dg/g77/20010519-1.f @@ -711,19 +711,19 @@ C Begin 1 'NFREG IS LARGER THAN PARDIM*3') C C ALLOCATE-SPACE-FOR-TRANSROT-VECTORS - ASSIGN 801 TO I800 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 801 TO I800 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 800 801 CONTINUE C ALLOCATE-SPACE-FOR-DIAGONALIZATION - ASSIGN 721 TO I720 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 721 TO I720 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 720 721 CONTINUE C ALLOCATE-SPACE-FOR-REDUCED-BASIS - ASSIGN 761 TO I760 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 761 TO I760 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 760 761 CONTINUE C ALLOCATE-SPACE-FOR-OTHER-ARRAYS - ASSIGN 921 TO I920 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 921 TO I920 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 920 921 CONTINUE C @@ -731,12 +731,12 @@ C Space allocation for working arrays of EISPACK C diagonalization subroutines IF(LSCI) THEN C ALLOCATE-SPACE-FOR-LSCI - ASSIGN 841 TO I840 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 841 TO I840 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 840 841 CONTINUE ELSE C ALLOCATE-DUMMY-SPACE-FOR-LSCI - ASSIGN 881 TO I880 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 881 TO I880 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 880 881 CONTINUE ENDIF @@ -878,11 +878,11 @@ C C C DO-THE-DIAGONALISATIONS-WITH-RESIDUALS C - ASSIGN 621 TO I620 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 621 TO I620 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 620 621 CONTINUE C SAVE-MODES - ASSIGN 701 TO I700 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 701 TO I700 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 700 701 CONTINUE IF(ITER.EQ.ITMX) THEN @@ -1025,17 +1025,17 @@ C CALL PARTDS(NAT3,NPARC,ATMPAR,NPARS,ATMPAS,INIDS,NPARMX, 1 DDF,NFREG,CUTF1,PARDIM,NFCUT1) C DO-THE-DIAGONALISATIONS - ASSIGN 641 to I640 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 641 to I640 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 640 641 CONTINUE QDIAG=.FALSE. C DO-THE-DIAGONALISATIONS-WITH-RESIDUALS - ASSIGN 622 TO I620 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 622 TO I620 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 620 622 CONTINUE QDIAG=.TRUE. C SAVE-MODES - ASSIGN 702 TO I700 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 702 TO I700 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 700 702 CONTINUE C @@ -1048,7 +1048,7 @@ C ITER=ITER+1 IF(PRNLEV.GE.2) WRITE(OUTU,553) ITER C DO-THE-DWIN-DIAGONALISATIONS - ASSIGN 661 TO I660 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 661 TO I660 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 660 661 CONTINUE ENDIF @@ -1056,13 +1056,13 @@ C DO-THE-DWIN-DIAGONALISATIONS IRESF=0 QDIAG=.FALSE. C DO-THE-DIAGONALISATIONS-WITH-RESIDUALS - ASSIGN 623 TO I620 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 623 TO I620 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 620 623 CONTINUE QDIAG=.TRUE. IF((CVGMX.LE.TOLDIM).OR.(ITER.EQ.ITMX)) GOTO 600 C SAVE-MODES - ASSIGN 703 TO I700 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 703 TO I700 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 700 703 CONTINUE ENDIF @@ -1072,7 +1072,7 @@ C SAVE-MODES 600 CONTINUE C C SAVE-MODES - ASSIGN 704 TO I700 ! { dg-warning "Obsolete: ASSIGN" "Obsolete: ASSIGN" } + ASSIGN 704 TO I700 ! { dg-warning "Deleted feature: ASSIGN" "Deleted feature: ASSIGN" } GOTO 700 704 CONTINUE CALL CLEANHP(NAT3,NFREG,NPARD,NSUBP,PARDIM,DDV2,DDSS,DDVBAS, @@ -1150,7 +1150,7 @@ C 6 HEAP(BDRATQ),HEAP(INRATQ),LSCI,LBIG,IUNMOD) CALL SELNMD(DDF,NFRET,CUTF1,NFCUT1) ENDIF - GOTO I620 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I620 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO DO-THE-DIAGONALISATIONS @@ -1190,7 +1190,7 @@ C TO DO-THE-DIAGONALISATIONS NFCUT1=NFCUT NFRET=NFCUT ENDDO - GOTO I640 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I640 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO DO-THE-DWIN-DIAGONALISATIONS @@ -1241,7 +1241,7 @@ C IF(NFCUT.GT.NFRRES) NFCUT=NFRRES NFCUT1=NFCUT NFRET=NFCUT - GOTO I660 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I660 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO SAVE-MODES @@ -1258,7 +1258,7 @@ C TO SAVE-MODES CALL WRTNMD(LCARD,ISTRT,ISTOP,NAT3,DDV,DDSCR,DDEV,IUNMOD, 1 AMASS) CALL SAVEIT(IUNMOD) - GOTO I700 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I700 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO ALLOCATE-SPACE-FOR-DIAGONALIZATION @@ -1269,7 +1269,7 @@ C TO ALLOCATE-SPACE-FOR-DIAGONALIZATION JSPACE=JSPACE+JSP DDSS=ALLHP(JSPACE) DD5=DDSS+JSPACE-JSP - GOTO I720 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I720 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO ALLOCATE-SPACE-FOR-REDUCED-BASIS @@ -1279,13 +1279,13 @@ C TO ALLOCATE-SPACE-FOR-REDUCED-BASIS ELSE DDVBAS=ALLHP(IREAL8(NFREG*NAT3)) ENDIF - GOTO I760 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I760 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO ALLOCATE-SPACE-FOR-TRANSROT-VECTORS 800 CONTINUE TRAROT=ALLHP(IREAL8(6*NAT3)) - GOTO I800 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I800 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO ALLOCATE-SPACE-FOR-LSCI @@ -1300,7 +1300,7 @@ C TO ALLOCATE-SPACE-FOR-LSCI E2RATQ=ALLHP(IREAL8(PARDIM+3)) BDRATQ=ALLHP(IREAL8(PARDIM+3)) INRATQ=ALLHP(INTEG4(PARDIM+3)) - GOTO I840 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I840 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO ALLOCATE-DUMMY-SPACE-FOR-LSCI @@ -1315,13 +1315,13 @@ C TO ALLOCATE-DUMMY-SPACE-FOR-LSCI E2RATQ=ALLHP(IREAL8(2)) BDRATQ=ALLHP(IREAL8(2)) INRATQ=ALLHP(INTEG4(2)) - GOTO I880 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I880 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C C----------------------------------------------------------------------- C TO ALLOCATE-SPACE-FOR-OTHER-ARRAYS 920 CONTINUE IUPD=ALLHP(INTEG4(PARDIM+3)) - GOTO I920 ! { dg-warning "Obsolete: Assigned" "Assigned GO TO" } + GOTO I920 ! { dg-warning "Deleted feature: Assigned" "Assigned GO TO" } C.##ELSE C.##ENDIF END diff --git a/gcc/testsuite/gfortran.dg/g77/960317-1.f b/gcc/testsuite/gfortran.dg/g77/960317-1.f index f9a3ef2..c8b3b69 100644 --- a/gcc/testsuite/gfortran.dg/g77/960317-1.f +++ b/gcc/testsuite/gfortran.dg/g77/960317-1.f @@ -14,7 +14,7 @@ C SUBROUTINE QUICK SAVE C - ASSIGN 101 TO JUMP ! { dg-warning "Obsolete: ASSIGN" "" } + ASSIGN 101 TO JUMP ! { dg-warning "Deleted feature: ASSIGN" "" } 101 Continue C RETURN diff --git a/gcc/testsuite/gfortran.dg/g77/pr9258.f b/gcc/testsuite/gfortran.dg/g77/pr9258.f index 6de7845..6213245 100644 --- a/gcc/testsuite/gfortran.dg/g77/pr9258.f +++ b/gcc/testsuite/gfortran.dg/g77/pr9258.f @@ -5,14 +5,14 @@ C { dg-do compile } SUBROUTINE FOO (B) 10 CALL BAR (A) - ASSIGN 20 TO M !{ dg-warning "Obsolete: ASSIGN" "" } + ASSIGN 20 TO M !{ dg-warning "Deleted feature: ASSIGN" "" } IF (100.LT.A) GOTO 10 GOTO 40 C 20 IF (B.LT.ABS(A)) GOTO 10 - ASSIGN 30 TO M !{ dg-warning "Obsolete: ASSIGN" "" } + ASSIGN 30 TO M !{ dg-warning "Deleted feature: ASSIGN" "" } GOTO 40 C - 30 ASSIGN 10 TO M !{ dg-warning "Obsolete: ASSIGN" "" } - 40 GOTO M,(10,20,30) !{ dg-warning "Obsolete: Assigned GOTO" "" } + 30 ASSIGN 10 TO M !{ dg-warning "Deleted feature: ASSIGN" "" } + 40 GOTO M,(10,20,30) !{ dg-warning "Deleted feature: Assigned GOTO" "" } END diff --git a/gcc/testsuite/gfortran.dg/gomp/omp_do1.f90 b/gcc/testsuite/gfortran.dg/gomp/omp_do1.f90 index 3dfd43d..c97af1d 100644 --- a/gcc/testsuite/gfortran.dg/gomp/omp_do1.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/omp_do1.f90 @@ -24,11 +24,11 @@ subroutine foo i = i + 1 end do !$omp do - do 300 d = 1, 30, 6 ! { dg-warning "Obsolete: REAL DO loop iterator" } + do 300 d = 1, 30, 6 ! { dg-warning "Deleted feature: Loop variable" } i = d 300 a(i) = 1 !$omp do - do d = 1, 30, 5 ! { dg-warning "Obsolete: REAL DO loop iterator" } + do d = 1, 30, 5 ! { dg-warning "Deleted feature: Loop variable" } i = d a(i) = 2 end do diff --git a/gcc/testsuite/gfortran.dg/real_do_1.f90 b/gcc/testsuite/gfortran.dg/real_do_1.f90 index 89a9d1b..95fb473 100644 --- a/gcc/testsuite/gfortran.dg/real_do_1.f90 +++ b/gcc/testsuite/gfortran.dg/real_do_1.f90 @@ -1,4 +1,8 @@ ! { dg-do run } +! { dg-warning "Loop variable" "Loop" { target *-*-* } 13 } +! { dg-warning "Start expression" "Start" { target *-*-* } 13 } +! { dg-warning "End expression" "End" { target *-*-* } 13 } +! { dg-warning "Step expression" "Step" { target *-*-* } 13 } ! Test REAL type iterators in DO loops program real_do_1 real x, y @@ -6,7 +10,7 @@ program real_do_1 n = 0 y = 1.0 - do x = 1.0, 2.05, 0.1 ! { dg-warning "REAL DO loop" "" } + do x = 1.0, 2.05, 0.1 call check (x, y) y = y + 0.1 n = n + 1 diff --git a/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f b/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f index 26c4e26..2452b49 100644 --- a/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f +++ b/gcc/testsuite/gfortran.dg/warnings_are_errors_1.f @@ -12,7 +12,7 @@ ! 34 5 i=0 ! gfc_notify_std(GFC_STD_F95_DEL): - do r1 = 1.0, 2 ! { dg-warning "Obsolete: REAL DO loop iterator" } + do r1 = 1, 2 ! { dg-error "Deleted feature: Loop variable" } i = i+1 end do call foo j bar