Subversion Repositories openrisc

! { dg-do compile }
!
! PR fortran/50933
!
! Check whether type-compatibility checks for BIND(C) work.
!
! Contributed by Richard Maine
!

MODULE liter_cb_mod
USE ISO_C_BINDING
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 liter_cb_mod

PROGRAM main
     USE ISO_C_BINDING
   interface
   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
   END FUNCTION liter_cb
   end interface

      TYPE, bind(C) :: info_t
        INTEGER(c_int) :: type
     END TYPE info_t  
  type(info_t) :: link_info

  write (*,*) liter_cb(link_info)

END PROGRAM main

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