1 files changed, 17 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/c_loc_driver.c b/gcc/testsuite/gfortran.dg/c_loc_driver.c
new file mode 100644
index 000000000..9e0104396
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/c_loc_driver.c
@@ -0,0 +1,17 @@
+/* in fortran module */
+void test0(void);
+
+extern void abort(void);
+
+int main(int argc, char **argv)
+{
+   test0();
+   return 0;
+}/* end main() */
+
+void test_address(void *c_ptr, int expected_value)
+{
+   if((*(int *)(c_ptr)) != expected_value)
+      abort();
+   return;
+}/* end test_address() */