From 6701593392a20bff160bec10ac1185f16f5886f5 Mon Sep 17 00:00:00 2001 From: ghazi Date: Sat, 29 Aug 2009 20:28:59 +0000 Subject: [PATCH] * gfortran.dg/whole_file_5.f90: Add -fpie when pic, fix scan pattern. * gfortran.dg/whole_file_6.f90: Likewise. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@151211 138bc75d-0d04-0410-961f-82ee72b054a4 --- gcc/testsuite/ChangeLog | 6 ++++++ gcc/testsuite/gfortran.dg/whole_file_5.f90 | 3 ++- gcc/testsuite/gfortran.dg/whole_file_6.f90 | 3 ++- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 719e905..12a11f3 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2009-08-29 Kaveh R. Ghazi + + * gfortran.dg/whole_file_5.f90: Add -fpie when pic, fix scan + pattern. + * gfortran.dg/whole_file_6.f90: Likewise. + 2009-08-28 Cary Coutant PR debug/41063 diff --git a/gcc/testsuite/gfortran.dg/whole_file_5.f90 b/gcc/testsuite/gfortran.dg/whole_file_5.f90 index 898b4e6..07ba441 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_5.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_5.f90 @@ -1,5 +1,6 @@ ! { dg-do "compile" } ! { dg-options "-O3 -fwhole-file -fdump-tree-optimized" } +! { dg-options "-O3 -fwhole-file -fdump-tree-optimized -fpie" { target { ! nonpic } } } ! ! Check that inlining of functions declared BEFORE usage works. ! If yes, then the dump does not contain a call to F(). @@ -15,5 +16,5 @@ PROGRAM main print *, a END PROGRAM -! { dg-final { scan-tree-dump-times "= f\(\)" 0 "optimized" } } +! { dg-final { scan-tree-dump-times "= f \\(\\)" 0 "optimized" } } ! { dg-final { cleanup-tree-dump "optimized" } } diff --git a/gcc/testsuite/gfortran.dg/whole_file_6.f90 b/gcc/testsuite/gfortran.dg/whole_file_6.f90 index 157cfa1..f903c7a 100644 --- a/gcc/testsuite/gfortran.dg/whole_file_6.f90 +++ b/gcc/testsuite/gfortran.dg/whole_file_6.f90 @@ -1,5 +1,6 @@ ! { dg-do "compile" } ! { dg-options "-O3 -fwhole-file -fdump-tree-optimized" } +! { dg-options "-O3 -fwhole-file -fdump-tree-optimized -fpie" { target { ! nonpic } } } ! ! Check that inlining of functions declared AFTER usage works. ! If yes, then the dump does not contain a call to F(). @@ -15,5 +16,5 @@ INTEGER FUNCTION f() f = 42.0 END FUNCTION -! { dg-final { scan-tree-dump-times "= f\(\)" 0 "optimized" } } +! { dg-final { scan-tree-dump-times "= f \\(\\)" 0 "optimized" } } ! { dg-final { cleanup-tree-dump "optimized" } } -- 2.7.4