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
53
54
55
56
|
! RUN: bbc -emit-fir %s -o - | FileCheck %s
! CHECK-DAG: func.func private @proc1() attributes {fir.bindc_name = "proc1"}
module decl1
interface
subroutine proc_iface() bind(C)
end subroutine proc_iface
end interface
procedure (proc_iface) PrOc1
end module decl1
subroutine test1(x)
use decl1
call PrOc1
end subroutine test1
! CHECK-DAG: func.func private @proc2() attributes {fir.bindc_name = "proc2"}
module decl2
interface
subroutine proc_iface() bind(C)
end subroutine proc_iface
end interface
end module decl2
subroutine test2(x)
use decl2
procedure (proc_iface) PrOc2
call PrOc2
end subroutine test2
! CHECK-DAG: func.func private @func3() -> f32 attributes {fir.bindc_name = "func3"}
module decl3
interface
real function func_iface() bind(C)
end function func_iface
end interface
procedure (func_iface) FuNc3
end module decl3
subroutine test3(x)
use decl3
real :: x
x = FuNc3()
end subroutine test3
! CHECK-DAG: func.func private @func4() -> f32 attributes {fir.bindc_name = "func4"}
module decl4
interface
real function func_iface() bind(C)
end function func_iface
end interface
end module decl4
subroutine test4(x)
use decl4
procedure (func_iface) FuNc4
real :: x
x = FuNc4()
end subroutine test4
|
