1 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_1_c.c b/gcc/testsuite/gfortran.dg/assumed_rank_1_c.c
new file mode 100644
index 00000000000..85dd72db103
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/assumed_rank_1_c.c
@@ -0,0 +1,16 @@
+/* Called by assumed_rank_1.f90.  */
+
+#include <stdlib.h>  /* For abort().  */
+
+struct array {
+  int *data;
+};
+
+void check_value_ (struct array *b, int n, int val[])
+{
+  int i;
+
+  for (i = 0; i < n; i++)
+    if (b->data[i] != val[i])
+      abort ();
+}