15 lines · plain
1! RUN: bbc -emit-fir -o - %s | FileCheck %s2 3! Test checks whether the text of the format statement is hashconed into a4! global similar to a CHARACTER literal and then referenced.5 6program other7 write(10, 1008)8 ! CHECK: fir.address_of(@{{.*}}) :91008 format('ok')10end11! CHECK-LABEL: fir.global linkonce @_QQclX28276F6B2729 constant12! CHECK: %[[lit:.*]] = fir.string_lit "('ok')"(6) : !fir.char<1,6>13! CHECK: fir.has_value %[[lit]] : !fir.char<1,6>14! CHECK: }15