1 files changed, 22 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03 b/gcc-4.9/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03
new file mode 100644
index 000000000..ce9cd9f93
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/binding_label_tests_12.f03
@@ -0,0 +1,22 @@
+! { dg-do run }
+! This verifies that the compiler will correctly accpet the name="", write out
+! an empty string for the binding label to the module file, and then read it
+! back in.  Also, during gfc_verify_binding_labels, the name="" will prevent
+! any verification (since there is no label to verify).
+module one
+contains
+  subroutine foo() bind(c)
+  end subroutine foo
+end module one
+
+module two
+contains
+  ! This procedure is only used accessed in C
+  ! as procedural pointer
+  subroutine foo() bind(c, name="")
+  end subroutine foo
+end module two
+
+use one, only: foo_one => foo
+use two, only: foo_two => foo
+end