This is an archive of the discontinued LLVM Phabricator instance.

Differential D122322

[flang][NFC] Add global lowering tests
ClosedPublic

Authored by clementval on Mar 23 2022, 8:32 AM.

Details

Reviewers
jeanPerier
PeteSteinfeld
schweitz
svedanayagam
klausler
Commits
rGe539faced80d: [flang][NFC] Add global lowering tests
Summary

This patch adds some lowering tests for globals.

This patch is part of the upstreaming effort from fir-dev branch.

Diff Detail

Event Timeline

clementval created this revision.Mar 23 2022, 8:32 AM
Herald added projects: Restricted Project, Restricted Project. · View Herald TranscriptMar 23 2022, 8:32 AM
clementval requested review of this revision.Mar 23 2022, 8:32 AM
Herald added a subscriber: jdoerfert. · View Herald TranscriptMar 23 2022, 8:32 AM
clementval updated this revision to Diff 417637.Mar 23 2022, 8:36 AM

Add a test

PeteSteinfeld accepted this revision.Mar 23 2022, 8:55 AM

All builds and tests correctly and looks good.

This revision is now accepted and ready to land.Mar 23 2022, 8:55 AM
Harbormaster completed remote builds in B155878: Diff 417637.Mar 23 2022, 8:57 AM
Closed by commit rGe539faced80d: [flang][NFC] Add global lowering tests (authored by clementval). · Explain WhyMar 23 2022, 9:02 AM
This revision was automatically updated to reflect the committed changes.
clementval added a commit: rGe539faced80d: [flang][NFC] Add global lowering tests.

Revision Contents

PathSize
flang/
test/
Lower/
14 lines
43 lines

Diff 417634

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

  • This file was added.
! 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 @_QQcl.28276F6B2729 constant
! CHECK: %[[lit:.*]] = fir.string_lit "('ok')"(6) : !fir.char<1,6>
! CHECK: fir.has_value %[[lit]] : !fir.char<1,6>
! CHECK: }

flang/test/Lower/global-initialization.f90

  • This file was added.
! RUN: bbc %s -o - | FileCheck %s
program bar
! CHECK: fir.address_of(@[[name1:.*]]my_data)
integer, save :: my_data = 1
print *, my_data
contains
! CHECK-LABEL: func @_QFPfoo
subroutine foo()
! CHECK: fir.address_of(@[[name2:.*foo.*my_data]])
integer, save :: my_data = 2
print *, my_data + 1
end subroutine
! CHECK-LABEL: func @_QFPfoo2
subroutine foo2()
! CHECK: fir.address_of(@[[name3:.*foo2.*my_data]])
integer, save :: my_data
my_data = 4
print *, my_data
end subroutine
! CHECK-LABEL: func @_QFPfoo3
subroutine foo3()
! CHECK-DAG: fir.address_of(@[[name4:.*foo3.*idata]]){{.*}}fir.array<5xi32>
! CHECK-DAG: fir.address_of(@[[name5:.*foo3.*rdata]]){{.*}}fir.array<3xf16>
! CHECK-DAG: fir.address_of(@[[name6:.*foo3.*my_data]]){{.*}}fir.array<2x4xi64>
integer*4, dimension(5), save :: idata = (/ (i*i, i=1,5) /)
integer*8, dimension(2, 10:13), save :: my_data = reshape((/1,2,3,4,5,6,7,8/), shape(my_data))
real*2, dimension(7:9), save :: rdata = (/100., 99., 98./)
print *, rdata(9)
print *, idata(3)
print *, my_data(1,11)
end subroutine
end program
! CHECK: fir.global internal @[[name1]]
! CHECK: fir.global internal @[[name2]]
! CHECK: fir.global internal @[[name3]]
! CHECK-DAG: fir.global internal @[[name4]]{{.*}}fir.array<5xi32>
! CHECK-DAG: fir.global internal @[[name5]]{{.*}}fir.array<3xf16>
! CHECK-DAG: fir.global internal @[[name6]]{{.*}}fir.array<2x4xi64>