From 43836431fc3fc4e620228c379e13bee7d74b0f37 Mon Sep 17 00:00:00 2001
From: Ulrich Weigand <uweigand@de.ibm.com>
Date: Fri, 17 Apr 2009 10:42:59 +0000
Subject: [PATCH] * gfortran.fortran-torture/execute/getarg_1.x: New file.
From-SVN: r146246
---
gcc/testsuite/ChangeLog | 4 ++++
gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.x | 5 +++++
2 files changed, 9 insertions(+)
create mode 100644 gcc/testsuite/gfortran.fortran-torture/execute/getarg_1.x
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index e8185e2b4fd0..94c5efdd0109 100644
--- 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
index 000000000000..6356b439e5eb
--- /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
--
GitLab