obtained gcc-4.6.4.tar.bz2 from upstream website;upstream

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.

1 files changed, 46 insertions, 0 deletions

diff --git a/gcc/testsuite/gfortran.dg/bind_c_vars_driver.c b/gcc/testsuite/gfortran.dg/bind_c_vars_driver.c
new file mode 100644
index 000000000..2af800a15
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/bind_c_vars_driver.c
@@ -0,0 +1,46 @@
+double fabs (double);
+
+/* defined in fortran module bind_c_vars */
+void changeF90Globals(void);
+
+extern void abort(void);
+
+/* module level scope in bind_c_vars */
+extern int myf90int;         /* myf90int in bind_c_vars */
+float myF90Real;             /* f90_real in bind_c_vars */
+int myF90Array3D[10][5][18]; /* A in bind_c_vars */
+int myF90Array2D[2][3];      /* B in bind_c_vars */
+int myVariable;              /* c2 in bind_c_vars */
+int c3;                      /* c3 in bind_c_vars */
+int c4;                      /* c4 in bind_c_vars */
+
+int main(int argc, char **argv)
+{
+   myf90int = 1;
+   myF90Real = 1.0;
+   myVariable = 2;
+   c3 = 3;
+   c4 = 4;
+   myF90Array3D[2][3][4] = 1;
+   myF90Array2D[1][2] = 2;
+
+   /* will change the global vars initialized above */
+   changeF90Globals();
+
+   if(myf90int != 2)
+      abort();
+   if(fabs(myF90Real-3.0) > 0.00000000)
+      abort();
+   if(myVariable != 4)
+      abort();
+   if(c3 != 6)
+      abort();
+   if(c4 != 2)
+      abort();
+   if(myF90Array3D[2][3][4] != 2)
+      abort();
+   if(myF90Array2D[1][2] != 3)
+      abort();
+   
+   return 0;
+}/* end main() */