flang/test/Lower/global-format-strings.f90

   1 ! RUN: bbc -emit-fir -o - %s | FileCheck %s
   2
   3 ! Test checks whether the text of the format statement is hashconed into a
   4 ! global similar to a CHARACTER literal and then referenced.
   5
   6 program other
   7   write(10, 1008)
   8   ! CHECK:  fir.address_of(@{{.*}}) :
   9 1008 format('ok')
  10 end
  11 ! CHECK-LABEL: fir.global linkonce @_QQcl.28276F6B2729 constant
  12 ! CHECK: %[[lit:.*]] = fir.string_lit "('ok')"(6) : !fir.char<1,6>
  13 ! CHECK: fir.has_value %[[lit]] : !fir.char<1,6>
  14 ! CHECK: }