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

gcc/testsuite/ChangeLog

+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.

gcc/testsuite/gnat.dg/test_prio_p.adb

+-- { dg-options "-gnatws" }
+
 package body test_prio_p is
    protected body Protected_Queue_T is
       entry Seize when True is begin null; end;

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] } {