aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.dg/bind_c_usage_21.f90
blob: 3ed8dc90a4612a2b2c0a91e6fa82744c1fd5e721 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
! { 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