1 files changed, 24 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.dg/binding_label_tests_4.f03 b/gcc-4.9/gcc/testsuite/gfortran.dg/binding_label_tests_4.f03
new file mode 100644
index 000000000..455726e75
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.dg/binding_label_tests_4.f03
@@ -0,0 +1,24 @@
+! { dg-do compile }
+module A
+  use, intrinsic :: iso_c_binding
+contains
+  subroutine pA() bind(c, name='printf') ! { dg-error "Procedure pb with binding label printf at .1. uses the same global identifier as entity at .2." }
+    print *, 'hello from pA'
+  end subroutine pA
+end module A
+
+module B
+  use, intrinsic :: iso_c_binding
+
+contains
+  subroutine pB() bind(c, name='printf') ! { dg-error "Procedure pb with binding label printf at .1. uses the same global identifier as entity at .2." }
+    print *, 'hello from pB'
+  end subroutine pB
+end module B
+
+module C
+use A
+use B ! { dg-error "Can't open module file" }
+end module C
+
+