gcc/testsuite/gfortran.dg/binding_label_tests_29.f90

   1 ! { dg-do compile }
   2 ! PR53478
   3
   4 module test_bug ! { dg-error "Procedure 'test' with binding label 'Test_Bug' at .1. uses the same global identifier as entity at .2." }
   5
   6 use, intrinsic :: ISO_C_BINDING
   7
   8 contains
   9
  10   subroutine test() bind (C, name = "Test_Bug") ! { dg-error "Procedure 'test' with binding label 'Test_Bug' at .1. uses the same global identifier as entity at .2." }
  11   end subroutine
  12
  13 end module