30 lines
558 B
Fortran
30 lines
558 B
Fortran
|
! { 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) call abort()
|
||
|
end program main
|