blob: 5fe5e2b36ccc3046097891a0a67fd398166a4766 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
|
! { 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
|