re PR fortran/31162 (missing warning for real do-loops with implicit typed variables)

2007-06-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	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 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,14 @@
+2007-06-21  Jerry DeLisle  <jvdelisle@gcc.gnu.org>
+
+       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  <rguenther@suse.de>
 
        PR tree-optimization/32453

diff --git a/gcc/testsuite/gfortran.dg/assign.f90 b/gcc/testsuite/gfortran.dg/assign.f90
index 516a3d7..2d9e497 100644 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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 (file)
--- 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