[Patch] Minor fixes for regtesting gfortran with -flto

[Dominique Dhumieres]

With the following patch, gfortran can be regtested with -flto
with no failure, but pr54852 and pr60061.

OK for trunk?

Dominique

2014-05-05  Dominique d'Humieres <domi...@lps.ens.fr>

        * gfortran.dg/gfortran.dg/bind_c_array_params_2.f90:
        Adjust regexp for -flto.
        * gfortran.dg/gfortran.dg/pr48636-2.f90: Likewise.
        * gfortran.dg/pr52835.f90: Likewise.

--- ../_clean/gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90       
2013-01-25 09:57:48.000000000 +0100
+++ gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90 2014-02-04 
19:24:06.000000000 +0100
@@ -16,7 +16,7 @@ integer :: aa(4,4)
 call test(aa)
 end
 
-! { dg-final { scan-assembler-times "myBindC" 1 { target { ! { hppa*-*-hpux* } 
} } } }
-! { dg-final { scan-assembler-times "myBindC,%r2" 1 { target { hppa*-*-hpux* } 
} } }
+! { dg-final { scan-assembler-times "call\[^\n\r\]*myBindC" 1 { target { ! { 
hppa*-*-hpux* } } } } }
+! { dg-final { scan-assembler-times "call\[^\n\r\]*myBindC,%r2" 1 { target { 
hppa*-*-hpux* } } } }
 ! { dg-final { scan-tree-dump-times "test \\\(&parm\\." 1 "original" } }
 ! { dg-final { cleanup-tree-dump "original" } }
--- ../_clean/gcc/testsuite/gfortran.dg/pr48636-2.f90   2012-11-07 
18:36:11.000000000 +0100
+++ gcc/testsuite/gfortran.dg/pr48636-2.f90     2014-02-04 17:33:00.000000000 
+0100
@@ -33,6 +33,6 @@ program main
   print *,x
 end program main
 
-! { dg-final { scan-ipa-dump "Creating a specialized node of bar/\[0-9\]*\\." 
"cp" } }
+! { dg-final { scan-ipa-dump "Creating a specialized node of 
\[^\n\r\]*bar/\[0-9\]*\\." "cp" } }
 ! { dg-final { scan-ipa-dump-times "Aggregate 
replacements\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*=\[^=\]*="
 2 "cp" } }
 ! { dg-final { cleanup-ipa-dump "cp" } }
--- ../_clean/gcc/testsuite/gfortran.dg/pr52835.f90     2012-04-03 
10:50:54.000000000 +0200
+++ gcc/testsuite/gfortran.dg/pr52835.f90       2014-02-04 17:18:15.000000000 
+0100
@@ -12,5 +12,5 @@ subroutine foo (x, y, z, n)
   end do
 end subroutine
 
-! { dg-final { scan-tree-dump "bar " "optimized" } }
+! { dg-final { scan-tree-dump "bar\[ _\]" "optimized" } }
 ! { dg-final { cleanup-tree-dump "optimized" } }