From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gfortran.dg/c_f_tests_driver.c | 66 ++++++++++++++++++++++++++++
 1 file changed, 66 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/c_f_tests_driver.c

(limited to 'gcc/testsuite/gfortran.dg/c_f_tests_driver.c')

diff --git a/gcc/testsuite/gfortran.dg/c_f_tests_driver.c b/gcc/testsuite/gfortran.dg/c_f_tests_driver.c
new file mode 100644
index 000000000..5079cf799
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/c_f_tests_driver.c
@@ -0,0 +1,66 @@
+extern void abort(void);
+
+typedef struct myCDerived
+{
+   int cInt;
+   double cDouble;
+   float cFloat;
+   short cShort;
+   void *ptr;
+}myCDerived_t;
+
+#define DERIVED_ARRAY_LEN 10
+#define ARRAY_LEN_2 3
+#define DIM1 2
+#define DIM2 3
+
+void testDerivedPtrs(myCDerived_t *cDerivedPtr,
+                     myCDerived_t *derivedArray, int arrayLen,
+                     myCDerived_t *derived2d, int dim1, int dim2);
+
+int main(int argc, char **argv)
+{
+   myCDerived_t cDerived;
+   myCDerived_t derivedArray[DERIVED_ARRAY_LEN];
+   myCDerived_t derived2DArray[DIM1][DIM2];
+   int i = 0;
+   int j = 0;
+
+   cDerived.cInt = 1;
+   cDerived.cDouble = 2.0;
+   cDerived.cFloat = 3.0;
+   cDerived.cShort = 4;
+/*    cDerived.ptr = NULL; */
+   /* nullify the ptr */
+   cDerived.ptr = 0;
+
+   for(i = 0; i < DERIVED_ARRAY_LEN; i++)
+   {
+      derivedArray[i].cInt = (i+1) * 1;
+      derivedArray[i].cDouble = (i+1) * 1.0; /* 2.0; */
+      derivedArray[i].cFloat = (i+1) * 1.0; /* 3.0; */
+      derivedArray[i].cShort = (i+1) * 1; /* 4; */
+/*       derivedArray[i].ptr = NULL; */
+      derivedArray[i].ptr = 0;
+   }
+
+   for(i = 0; i < DIM1; i++)
+   {
+      for(j = 0; j < DIM2; j++)
+      {
+         derived2DArray[i][j].cInt = ((i*DIM1) * 1) + j;
+         derived2DArray[i][j].cDouble = ((i*DIM1) * 1.0) + j;
+         derived2DArray[i][j].cFloat = ((i*DIM1) * 1.0) + j;
+         derived2DArray[i][j].cShort = ((i*DIM1) * 1) + j;
+/*          derived2DArray[i][j].ptr = NULL; */
+         derived2DArray[i][j].ptr = 0;
+      }
+   }
+
+   /* send in the transpose size (dim2 is dim1, dim1 is dim2) */
+   testDerivedPtrs(&cDerived, derivedArray, DERIVED_ARRAY_LEN,
+                   derived2DArray[0], DIM2, DIM1);
+   
+   return 0;
+}/* end main() */
+
-- 
cgit v1.2.3