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 6program other 7 write(10, 1008) 8 ! CHECK: fir.address_of(@{{.*}}) : 91008 format('ok') 10end 11! CHECK-LABEL: fir.global linkonce @_QQclX28276F6B2729 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: } 15