gcc/testsuite/gfortran.dg/bind_c_usage_15.f90

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/34187
   4 ! The binding label was not exported for private procedures
   5 ! with public generic interfaces.
   6 !
   7 module mod
   8   use iso_c_binding, only: c_int
   9   implicit none
  10   private
  11   public :: gen, c_int
  12   interface gen
  13     module procedure  test
  14   end interface gen
  15 contains
  16   subroutine test(a) bind(c, name="myFunc")
  17     integer(c_int), intent(out) :: a
  18     a = 17
  19   end subroutine test
  20 end module mod
  21
  22 program main
  23   use mod
  24   implicit none
  25   integer(c_int) :: x
  26   x = -44
  27   call gen(x)
  28   if(x /= 17) STOP 1
  29 end program main