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