1 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/c_ptr_tests_7_driver.c b/gcc/testsuite/gfortran.dg/c_ptr_tests_7_driver.c
new file mode 100644
index 000000000..7d8b1e328
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/c_ptr_tests_7_driver.c
@@ -0,0 +1,14 @@
+/* This is the driver for c_ptr_test_7.  */
+extern void abort(void);
+
+void *func0();
+
+int main(int argc, char **argv)
+{
+  /* The Fortran module c_ptr_tests_7 contains function func0, which has
+     return type of c_ptr, and should set the return value to c_null_ptr.  */
+  if (func0() != 0)
+    abort();
+
+  return 0;
+}