! { dg-do compile } | |
! | |
! PR fortran/45211 | |
! | |
! Contributed by Scot Breitenfeld | |
! | |
module m | |
contains | |
FUNCTION liter_cb(link_info) bind(C) | |
USE ISO_C_BINDING | |
IMPLICIT NONE | |
INTEGER(c_int) liter_cb | |
TYPE, bind(C) :: info_t | |
INTEGER(c_int) :: type | |
END TYPE info_t | |
TYPE(info_t) :: link_info | |
liter_cb = 0 | |
END FUNCTION liter_cb | |
end module m |