Change scan-tree-dump-times patterns due to frontend changes

From-SVN: r147919

gcc/testsuite/ChangeLog

+2009-05-27  Janne Blomqvist  <jb@gcc.gnu.org>
+
+	PR fortran/39178
+	* gfortran.dg/elemental_dependency_1.f90: Fix scan-tree-dump-times
+	patterns to reflect frontend changes.
+	* gfortran.dg/vector_subscript_4.f90: Likewise.
+
 2009-05-28  Olivier Hainque  <hainque@adacore.com>	
             Eric Botcazou  <botcazou@adacore.com>
     

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 
 

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" } }