gcc/testsuite/gfortran.dg/bind_c_usage_21.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR fortran/45211
   4 !
   5 ! Contributed by Scot Breitenfeld
   6 !
   7 module m
   8 contains
   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
  23 end module m
  24
  25 ! { dg-final { cleanup-modules "m" } }