mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 17:36:36 +00:00
fd389f46de
Change the separator in the `uniqueCGIdent` method to `X`. This change is required to enable OpenMP offloading for the NVPTX target, as dots are not valid identifiers in PTX and `uniqueCGIdent` is used to mangle some literals. Follow up patches will change the remainder of `.` appearances in names to `X` and add support for the NVPTX target.
15 lines
465 B
Fortran
15 lines
465 B
Fortran
! RUN: bbc -emit-fir -o - %s | FileCheck %s
|
|
|
|
! Test checks whether the text of the format statement is hashconed into a
|
|
! global similar to a CHARACTER literal and then referenced.
|
|
|
|
program other
|
|
write(10, 1008)
|
|
! CHECK: fir.address_of(@{{.*}}) :
|
|
1008 format('ok')
|
|
end
|
|
! CHECK-LABEL: fir.global linkonce @_QQclX28276F6B2729 constant
|
|
! CHECK: %[[lit:.*]] = fir.string_lit "('ok')"(6) : !fir.char<1,6>
|
|
! CHECK: fir.has_value %[[lit]] : !fir.char<1,6>
|
|
! CHECK: }
|