flang/test/Lower/location.f90

   1 ! RUN: bbc -emit-hlfir --mlir-print-debuginfo %s -o - | FileCheck %s
   2
   3 program test
   4 include 'location0.inc'
   5
   6 end
   7
   8 ! CHECK-LABEL: func.func @_QQmain() attributes {fir.bindc_name = "test"} {
   9 ! CHECK: fir.call @_FortranAioOutputAscii(%{{.*}}, %{{.*}}, %{{.*}}) fastmath<contract> : (!fir.ref<i8>, !fir.ref<i8>, i64) -> i1 loc(fused<#fir<loc_kind_array[ base,  inclusion,  inclusion]>>["{{.*}}location1.inc":1:10, "{{.*}}location0.inc":1:1, "{{.*}}location.f90":4:1])
  10 ! CHECK: return loc("{{.*}}location.f90":6:1)
  11 ! CHECK: } loc("{{.*}}location.f90":3:1)
  12
  13