Subversion Repositories openrisc

! { 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

! { dg-final { cleanup-modules "m" } }