test_prio_p.adb: Compile with -gnatws.

	* gnat.dg/test_prio_p.adb: Compile with -gnatws.
	* lib/gnat.exp (gnat_target_compile): Pass -f to the driver.

From-SVN: r122093

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d678133308047582481f13ed69b25cf026deea7c..05fdf91ce7da4fabb3eb71b40bd9e5d16f6a09b1 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-18  Eric Botcazou  <ebotcazou@adacore.com>
+
+       * gnat.dg/test_prio_p.adb: Compile with -gnatws.
+       * lib/gnat.exp (gnat_target_compile): Pass -f to the driver.
+
 2007-02-16  Uros Bizjak  <ubizjak@gmail.com>
 
        * gcc.target/i386/builtin-bswap-1.c: Remove -march=nocona.

diff --git a/gcc/testsuite/gnat.dg/test_prio_p.adb b/gcc/testsuite/gnat.dg/test_prio_p.adb
index dd0d99adccbe96a74bee0bd7fe326ba84edbbe01..333ab9286e2617d0d64e13dd787eb1fd3a44b878 100644 (file)
--- a/gcc/testsuite/gnat.dg/test_prio_p.adb
+++ b/gcc/testsuite/gnat.dg/test_prio_p.adb
@@ -1,3 +1,5 @@
+-- { dg-options "-gnatws" }
+
 package body test_prio_p is
    protected body Protected_Queue_T is
       entry Seize when True is begin null; end;

diff --git a/gcc/testsuite/lib/gnat.exp b/gcc/testsuite/lib/gnat.exp
index 7960672edc190095391cab2af354b65f9e5b7a96..8832373a92e9fcc30fc1b972fab64502eaf00fa1 100644 (file)
--- a/gcc/testsuite/lib/gnat.exp
+++ b/gcc/testsuite/lib/gnat.exp
@@ -129,7 +129,7 @@ proc gnat_target_compile { source dest type options } {
 
     setenv ADA_INCLUDE_PATH "${rootme}/ada/rts"
     set ld_library_path ".:${gnat_libgcc_s_path}"
-    lappend options "compiler=$GNAT_UNDER_TEST -q"
+    lappend options "compiler=$GNAT_UNDER_TEST -q -f"
     lappend options "incdir=${rootme}/ada/rts"
 
     if { [target_info needs_status_wrapper]!="" && [info exists gluefile] } {