1 files changed, 15 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03 b/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03
new file mode 100644
index 000000000..1234bb535
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/binding_label_tests_7.f03
@@ -0,0 +1,15 @@
+! { dg-do compile }
+module A
+  use, intrinsic :: iso_c_binding, only: c_int
+  integer(c_int), bind(c, name='my_c_print') :: my_int ! { dg-error "collides" }
+end module A
+
+program main
+use A
+interface
+   subroutine my_c_print() bind(c) ! { dg-error "collides" }
+   end subroutine my_c_print
+end interface
+
+call my_c_print()
+end program main