This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
[Patch] Minor fixes for regtesting gfortran with -flto
- From: dominiq at lps dot ens dot fr (Dominique Dhumieres)
- To: fortran at gcc dot gnu dot org
- Cc: gcc-patches at gcc dot gnu dot org
- Date: Mon, 05 May 2014 18:12:35 +0200
- Subject: [Patch] Minor fixes for regtesting gfortran with -flto
- Authentication-results: sourceware.org; auth=none
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 <dominiq@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" } }