[Bug fortran/40270] [4.5 Regression] Revision 147883 caused many Fortran regressions

[jb at gcc dot gnu dot org]

------- Comment #7 from jb at gcc dot gnu dot org  2009-05-27 16:42 -------
The patch below fixes the elemental_dependency_1 and vector_subscript_4
failures:

diff --git a/gcc/testsuite/gfortran.dg/elemental_dependency_1.f90
b/gcc/testsuite/gfortran.dg/elemental_dependency_1.f90
index 3e1f67b..d76fad6 100644                                                   
--- a/gcc/testsuite/gfortran.dg/elemental_dependency_1.f90                      
+++ b/gcc/testsuite/gfortran.dg/elemental_dependency_1.f90
@@ -40,14 +40,14 @@ PROGRAM main

   b = a
   CALL double((a(1:sz-1)), a(2:sz))     ! paren expression, temporary created
-! { dg-final { scan-tree-dump-times "A\.17\\\[4\\\]" 1 "original" } }
+! { dg-final { scan-tree-dump-times "A\.16\\\[4\\\]" 1 "original" } }

   IF (ANY(a /= (/ b(1), (2*b(i), i=1,sz-1) /))) CALL abort


   b = a
   CALL double(a(1:sz-1)+1, a(2:sz))     ! op expression, temporary created
-! { dg-final { scan-tree-dump-times "A\.26\\\[4\\\]" 1 "original" } }
+! { dg-final { scan-tree-dump-times "A\.25\\\[4\\\]" 1 "original" } }

   IF (ANY(a /= (/ b(1), (2*b(i)+2, i=1,sz-1) /))) CALL abort

@@ -59,7 +59,7 @@ PROGRAM main

   b = a
   CALL double(self(a(1:sz-1)), a(2:sz))  ! function expr, temporary created
-! { dg-final { scan-tree-dump-times "A\.38\\\[4\\\]" 1 "original" } }
+! { dg-final { scan-tree-dump-times "A\.37\\\[4\\\]" 1 "original" } }

   IF (ANY(a /= (/ b(1), (2*b(i), i=1,sz-1) /))) CALL abort

diff --git a/gcc/testsuite/gfortran.dg/vector_subscript_4.f90
b/gcc/testsuite/gfortran.dg/vector_subscript_4.f90
index 2044684..5c341da 100644
--- a/gcc/testsuite/gfortran.dg/vector_subscript_4.f90
+++ b/gcc/testsuite/gfortran.dg/vector_subscript_4.f90
@@ -9,5 +9,5 @@
      integer :: i(-1:1) = 1, j(3) = 1, k(3)
       k = j((/1,1,1/)+i)
       end
-! { dg-final { scan-tree-dump-times "A\.3\\\[3\\\]" 1 "original" } }
+! { dg-final { scan-tree-dump-times "A\.2\\\[3\\\]" 1 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40270