gcc/testsuite/gfortran.dg/binding_label_tests_7.f03

   1 ! { dg-do compile }
   2 module A
   3   use, intrinsic :: iso_c_binding, only: c_int
   4   integer(c_int), bind(c, name='my_c_print') :: my_int ! { dg-error "Procedure my_c_print with binding label my_c_print at .1. uses the same global identifier as entity at .2." }
   5 end module A
   6
   7 program main
   8 use A
   9 interface
  10    subroutine my_c_print() bind(c) ! { dg-error "Procedure my_c_print with binding label my_c_print at .1. uses the same global identifier as entity at .2." }
  11    end subroutine my_c_print
  12 end interface
  13
  14 call my_c_print()
  15 end program main