1! { dg-do compile } 2! 3! PR fortran/45211 4! 5! Contributed by Scot Breitenfeld 6! 7module m 8contains 9 FUNCTION liter_cb(link_info) bind(C) 10 USE ISO_C_BINDING 11 IMPLICIT NONE 12 13 INTEGER(c_int) liter_cb 14 15 TYPE, bind(C) :: info_t 16 INTEGER(c_int) :: type 17 END TYPE info_t 18 19 TYPE(info_t) :: link_info 20 21 liter_cb = 0 22 END FUNCTION liter_cb 23end module m 24