This is an archive of the discontinued LLVM Phabricator instance.

Differential D129780

[flang][NFC]: Test folding F08 merge_bits intrinsic
ClosedPublic

Authored by tarunprabhu on Jul 14 2022, 8:14 AM.

Details

Reviewers
jeanPerier
klausler
kiranchandramohan
vdonaldson
clementval
sscalpone
Commits
rG9e16fb72dd74: [flang][NFC] Test folding of F08 merge_bits intrinsic.
Summary

Test folding of F08 merge_bits intrinsic. This is related to D129779 which implements folding for that intrinsic.

Diff Detail

Event Timeline

tarunprabhu created this revision.Jul 14 2022, 8:14 AM
Herald added a reviewer: sscalpone. · View Herald TranscriptJul 14 2022, 8:14 AM
Herald added a project: Restricted Project. · View Herald Transcript
Herald added a subscriber: jdoerfert. · View Herald Transcript
tarunprabhu requested review of this revision.Jul 14 2022, 8:14 AM
klausler added a comment.Jul 14 2022, 8:29 AM

Since there is a Fortran intrinsic function called MERGE, and it is not the same thing as MERGE_BITS, please change the test's file name and comment to avoid confusion.

tarunprabhu updated this revision to Diff 444679.Jul 14 2022, 8:33 AM

Updated file name and comment.

klausler accepted this revision.Jul 14 2022, 8:35 AM
This revision is now accepted and ready to land.Jul 14 2022, 8:35 AM
Harbormaster completed remote builds in B175420: Diff 444679.Jul 14 2022, 11:07 AM
Closed by commit rG9e16fb72dd74: [flang][NFC] Test folding of F08 merge_bits intrinsic. (authored by tarunprabhu). · Explain WhyJul 21 2022, 9:31 AM
This revision was automatically updated to reflect the committed changes.
tarunprabhu added a commit: rG9e16fb72dd74: [flang][NFC] Test folding of F08 merge_bits intrinsic..

Revision Contents

PathSize
flang/
test/
Evaluate/
23 lines

Diff 444674

flang/test/Evaluate/fold-merge.f90

  • This file was added.
! RUN: %python %S/test_folding.py %s %flang_fc1
! Tests fold merge intrinsics
module merge_bitstest
logical, parameter :: test_1 = merge_bits(13_1, 18_1, 22_1) .EQ. 4_1
logical, parameter :: test_2 = merge_bits(13_2, 18_2, 22_2) .EQ. 4_2
logical, parameter :: test_4 = merge_bits(13_4, 18_4, 22_4) .EQ. 4_4
logical, parameter :: test_8 = merge_bits(13_8, 18_8, 22_8) .EQ. 4_8
logical, parameter :: test_16 = merge_bits(13_16, 18_16, 22_16) .EQ. 4_16
logical, parameter :: test_z11 = merge_bits(13_1, B'00010010', 22_1) .EQ. 4_1
logical, parameter :: test_z12 = merge_bits(13_2, B'00010010', 22_2) .EQ. 4_2
logical, parameter :: test_z14 = merge_bits(13_4, B'00010010', 22_4) .EQ. 4_4
logical, parameter :: test_z18 = merge_bits(13_8, B'00010010', 22_8) .EQ. 4_8
logical, parameter :: test_z116 = merge_bits(13_16, B'00010010', 22_16) .EQ. 4_16
logical, parameter :: test_z01 = merge_bits(Z'0D', 18_1, 22_1) .EQ. 4_1
logical, parameter :: test_z02 = merge_bits(Z'0D', 18_2, 22_2) .EQ. 4_2
logical, parameter :: test_z04 = merge_bits(Z'0D', 18_4, 22_4) .EQ. 4_4
logical, parameter :: test_z08 = merge_bits(Z'0D', 18_8, 22_8) .EQ. 4_8
logical, parameter :: test_z016 = merge_bits(Z'0D', 18_16, 22_16) .EQ. 4_16
end module merge_bitstest