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
|
! RUN: bbc %s -o - | FileCheck %s
! CHECK-LABEL: @_QPadd_test
subroutine add_test(a,b,c)
complex :: a, b, c
! CHECK-NOT: fir.extract_value
! CHECK-NOT: fir.insert_value
! CHECK: fir.addc {{.*}}: !fir.complex
a = b + c
end subroutine add_test
! CHECK-LABEL: @_QPsub_test
subroutine sub_test(a,b,c)
complex :: a, b, c
! CHECK-NOT: fir.extract_value
! CHECK-NOT: fir.insert_value
! CHECK: fir.subc {{.*}}: !fir.complex
a = b - c
end subroutine sub_test
! CHECK-LABEL: @_QPmul_test
subroutine mul_test(a,b,c)
complex :: a, b, c
! CHECK-NOT: fir.extract_value
! CHECK-NOT: fir.insert_value
! CHECK: fir.mulc {{.*}}: !fir.complex
a = b * c
end subroutine mul_test
! CHECK-LABEL: @_QPdiv_test
subroutine div_test(a,b,c)
complex :: a, b, c
! CHECK-NOT: fir.extract_value
! CHECK-NOT: fir.insert_value
! CHECK: fir.divc {{.*}}: !fir.complex
a = b / c
end subroutine div_test
|
