mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-28 16:01:00 +08:00
Code Issues Packages Projects Releases Wiki Activity

bind_c_array_params_2.f90: Adjust regexp for -flto.

Browse Source 
2014-05-24  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.

From-SVN: r210892
This commit is contained in:
Dominique d'Humieres 2014-05-24 16:17:37 +02:00 committed by Dominique d'Humieres
parent 386c402747
commit 06e3da3474
4 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,10 @@
2014-05-24 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.
2014-05-23 Vladimir Makarov <vmakarov@redhat.com>
PR rtl-optimization/61215

4
gcc/testsuite/gfortran.dg/bind_c_array_params_2.f90
View File

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

2
gcc/testsuite/gfortran.dg/pr48636-2.f90
View File

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

2
gcc/testsuite/gfortran.dg/pr52835.f90
View File

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