* gfortran.fortran-torture/execute/getarg_1.x: New file.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@146246 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e8185e2..94c5efd 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,9 @@
 2009-04-17  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
 
+       * gfortran.fortran-torture/execute/getarg_1.x: New file.
+
+2009-04-17  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>
+
        * gfortran.dg/vect/pr39318.f90: Guard with "target fopenmp".
 
 2009-04-17  Ulrich Weigand  <Ulrich.Weigand@de.ibm.com>

diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.x b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.x
new file mode 100644 (file)
index 0000000..6356b43
--- /dev/null
+++ b/gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.x
@@ -0,0 +1,5 @@
+if [istarget "spu-*-*"] {
+    # We need -mstdmain to enable argument processing on SPU.
+    lappend additional_flags "-mstdmain"
+}
+return 0