whole_file_5.f90: Add -fpie when pic, fix scan pattern.

	* gfortran.dg/whole_file_5.f90: Add -fpie when pic, fix scan
	pattern.
	* gfortran.dg/whole_file_6.f90: Likewise.

From-SVN: r151211

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 719e905c186d26bbd8c43d80f38787ba03dfc8fd..12a11f3c60ebfe516d4a40e93d3633ef2880f1b3 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,9 @@
+2009-08-29  Kaveh R. Ghazi  <ghazi@caip.rutgers.edu>
+
+       * 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  <ccoutant@google.com>
 
        PR debug/41063

diff --git a/gcc/testsuite/gfortran.dg/whole_file_5.f90 b/gcc/testsuite/gfortran.dg/whole_file_5.f90
index 898b4e6848ec853622115a2656824e76586d0ebe..07ba4411c4c2a2e7d32c72c59c29979b6d66a39e 100644 (file)
--- 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 157cfa115262d914a371db46f28fc9de5b133a1f..f903c7aefc5fc28632b70247db2254b60b3d0be5 100644 (file)
--- 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" } }