28 lines · plain
1! REQUIRES: flang-supports-f128-math2! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck %s3 4program mn5 complex(kind=4) :: c46 complex(kind=8) :: c87 complex(kind=16) :: r8 r = fn1(c4, c8)9 print *, r10contains11 function fn1(a, b) result (c)12 complex(kind=4), intent(in) :: a13 complex(kind=8), intent(in) :: b14 complex(kind=16) :: c15 c = a + b16 end function17end program18 19! CHECK-DAG: ![[C4:.*]] = !DIBasicType(name: "complex", size: 64, encoding: DW_ATE_complex_float)20! CHECK-DAG: ![[C8:.*]] = !DIBasicType(name: "complex(kind=8)", size: 128, encoding: DW_ATE_complex_float)21! CHECK-DAG: ![[C16:.*]] = !DIBasicType(name: "complex(kind=16)", size: 256, encoding: DW_ATE_complex_float)22! CHECK-DAG: !DILocalVariable(name: "c4"{{.*}}type: ![[C4]])23! CHECK-DAG: !DILocalVariable(name: "c8"{{.*}}type: ![[C8]])24! CHECK-DAG: !DILocalVariable(name: "r"{{.*}}type: ![[C16]])25! CHECK-DAG: !DILocalVariable(name: "a"{{.*}}type: ![[C4]])26! CHECK-DAG: !DILocalVariable(name: "b"{{.*}}type: ![[C8]])27! CHECK-DAG: !DILocalVariable(name: "c"{{.*}}type: ![[C16]])28