xref: /llvm-project/flang/test/Integration/debug-complex-1.f90 (revision 63a4133912b5b737c75c18c609d711de6f70367f) 
1! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck  %s
2
3program mn
4  complex(kind=4) :: c4
5  complex(kind=8) :: c8
6  complex(kind=16) :: r
7  r = fn1(c4, c8)
8  print *, r
9contains
10  function fn1(a, b) result (c)
11    complex(kind=4), intent(in) :: a
12    complex(kind=8), intent(in) :: b
13    complex(kind=16) :: c
14    c = a + b
15  end function
16end program
17
18! CHECK-DAG: ![[C4:.*]] = !DIBasicType(name: "complex", size: 64, encoding: DW_ATE_complex_float)
19! CHECK-DAG: ![[C8:.*]] = !DIBasicType(name: "complex", size: 128, encoding: DW_ATE_complex_float)
20! CHECK-DAG: ![[C16:.*]] = !DIBasicType(name: "complex", size: 256, encoding: DW_ATE_complex_float)
21! CHECK-DAG: !DILocalVariable(name: "c4"{{.*}}type: ![[C4]])
22! CHECK-DAG: !DILocalVariable(name: "c8"{{.*}}type: ![[C8]])
23! CHECK-DAG: !DILocalVariable(name: "r"{{.*}}type: ![[C16]])
24! CHECK-DAG: !DILocalVariable(name: "a"{{.*}}type: ![[C4]])
25! CHECK-DAG: !DILocalVariable(name: "b"{{.*}}type: ![[C8]])
26! CHECK-DAG: !DILocalVariable(name: "c"{{.*}}type: ![[C16]])
27