| ! { dg-do run } | |
| ! | |
| ! PR fortran/34187 | |
| ! The binding label was not exported for private procedures | |
| ! with public generic interfaces. | |
| ! | |
| module mod | |
| use iso_c_binding, only: c_int | |
| implicit none | |
| private | |
| public :: gen, c_int | |
| interface gen | |
| module procedure test | |
| end interface gen | |
| contains | |
| subroutine test(a) bind(c, name="myFunc") | |
| integer(c_int), intent(out) :: a | |
| a = 17 | |
| end subroutine test | |
| end module mod | |
| program main | |
| use mod | |
| implicit none | |
| integer(c_int) :: x | |
| x = -44 | |
| call gen(x) | |
| if(x /= 17) STOP 1 | |
| end program main |