flang/test/Integration/debug-complex-1.f90

   1 ! RUN: %flang_fc1 -emit-llvm -debug-info-kind=standalone %s -o - | FileCheck  %s
   2
   3 program mn
   4   complex(kind=4) :: c4
   5   complex(kind=8) :: c8
   6   complex(kind=16) :: r
   7   r = fn1(c4, c8)
   8   print *, r
   9 contains
  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
  16 end 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]])