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

From-SVN: r146246

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e8185e2b4fd0c64a8034396489359b31a68480fb..94c5efdd01095701732d51ab1095933fc018521a 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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".

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