diff options
| author | Ian Lance Taylor <iant@golang.org> | 2021-10-07 15:28:36 -0700 |
|---|---|---|
| committer | Ian Lance Taylor <iant@golang.org> | 2021-10-07 15:28:36 -0700 |
| commit | 0b6b70a0733672600644c8df96942cda5bf86d3d (patch) | |
| tree | 9a1fbd7f782c54df55ab225ed1be057e3f3b0b8a /gcc/testsuite | |
| parent | a5b5cabc91c38710adbe5c8a2b53882abe994441 (diff) | |
| parent | fba228e259dd5112851527f2dbb62c5601100985 (diff) | |
| download | gcc-0b6b70a0733672600644c8df96942cda5bf86d3d.zip gcc-0b6b70a0733672600644c8df96942cda5bf86d3d.tar.gz gcc-0b6b70a0733672600644c8df96942cda5bf86d3d.tar.bz2 | |
Merge from trunk revision fba228e259dd5112851527f2dbb62c5601100985.
Diffstat (limited to 'gcc/testsuite')
316 files changed, 9193 insertions, 239 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index aca4514..a3159bd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,883 @@ +2021-10-06 Jason Merrill <jason@redhat.com> + + * g++.dg/cpp2a/spaceship-synth8a.C: New test. + +2021-10-06 Jakub Jelinek <jakub@redhat.com> + + PR c++/102612 + * g++.dg/cpp23/feat-cxx2b.C: Expect __cpp_constexpr 202110L rather + than 201907L. + * g++.dg/cpp23/constexpr-nonlit1.C: New test. + * g++.dg/cpp23/constexpr-nonlit2.C: New test. + * g++.dg/cpp23/constexpr-nonlit3.C: New test. + * g++.dg/cpp23/constexpr-nonlit4.C: New test. + * g++.dg/cpp23/constexpr-nonlit5.C: New test. + * g++.dg/cpp23/constexpr-nonlit6.C: New test. + * g++.dg/diagnostic/constexpr1.C: Only expect some diagnostics for + c++20_down. + * g++.dg/cpp1y/constexpr-label.C: Likewise. + * g++.dg/cpp1y/constexpr-neg1.C: Likewise. + * g++.dg/cpp2a/constexpr-try5.C: Likewise. Adjust some expected + wording. + * g++.dg/cpp2a/constexpr-dtor3.C: Likewise. + * g++.dg/cpp2a/consteval3.C: Likewise. Add effective target c++20 + and remove dg-options. + +2021-10-06 Jakub Jelinek <jakub@redhat.com> + + * gcc.dg/cpp/gnu11-elifdef-1.c: New test. + * gcc.dg/cpp/gnu11-elifdef-2.c: New test. + * gcc.dg/cpp/gnu11-elifdef-3.c: New test. + * gcc.dg/cpp/gnu11-elifdef-4.c: New test. + * g++.dg/cpp/elifdef-1.C: New test. + * g++.dg/cpp/elifdef-2.C: New test. + * g++.dg/cpp/elifdef-3.C: New test. + * g++.dg/cpp/elifdef-4.C: New test. + * g++.dg/cpp/elifdef-5.C: New test. + * g++.dg/cpp/elifdef-6.C: New test. + * g++.dg/cpp/elifdef-7.C: New test. + +2021-10-06 Tobias Burnus <tobias@codesourcery.com> + + * gfortran.dg/attr_deprecated-2.f90: New test. + +2021-10-06 Jakub Jelinek <jakub@redhat.com> + Jason Merrill <jason@redhat.com> + + PR c++/98712 + PR c++/102490 + * g++.dg/cpp2a/spaceship-synth8.C (std::strong_ordering): Provide + more complete definition. + (std::strong_ordering::less, std::strong_ordering::equal, + std::strong_ordering::greater): Define. + * g++.dg/cpp2a/spaceship-synth12.C: New test. + * g++.dg/cpp2a/spaceship-synth13.C: New test. + * g++.dg/cpp2a/spaceship-synth14.C: New test. + * g++.dg/cpp2a/spaceship-eq11.C: New test. + * g++.dg/cpp2a/spaceship-eq12.C: New test. + * g++.dg/cpp2a/spaceship-eq13.C: New test. + +2021-10-05 qing zhao <qing.zhao@oracle.com> + + PR middle-end/102359 + * g++.dg/pr102359_1.C: New test. + * g++.dg/pr102359_2.C: New test. + +2021-10-05 Jakub Jelinek <jakub@redhat.com> + + PR c++/102548 + * g++.target/i386/pr102548.C: New test. + +2021-10-05 Patrick Palka <ppalka@redhat.com> + + PR c++/102547 + * g++.dg/cpp0x/variadic-partial2.C: New test. + * g++.dg/cpp0x/variadic-partial2a.C: New test. + +2021-10-05 Aldy Hernandez <aldyh@redhat.com> + + * gcc.dg/tree-ssa/ssa-thread-valid.c: New test. + +2021-10-05 Jeff Law <jeffreyalaw@gmail.com> + + * gcc.target/s390/pr80725.c: Ensure computed goto is used on + a pointer type. + +2021-10-05 Richard Biener <rguenther@suse.de> + + PR c/102605 + * gcc.dg/gimplefe-46.c: New testcase. + +2021-10-05 Patrick Palka <ppalka@redhat.com> + + PR c++/98930 + * g++.dg/cpp1z/nontype4.C: New test. + * g++.dg/cpp1z/nontype4a.C: New test. + +2021-10-05 Tobias Burnus <tobias@codesourcery.com> + + * gfortran.dg/gomp/pr43711.f90: Add dg-error + dg-prune-output, + remove dg-excess-errors to change XFAIL to PASS. + +2021-10-05 Richard Biener <rguenther@suse.de> + + PR middle-end/102587 + PR middle-end/102285 + * gcc.target/aarch64/sve/pr102587-1.c: Add -march=armv8.3-a+sve. + * gcc.target/aarch64/sve/pr102587-2.c: Likewise. + +2021-10-05 Richard Biener <rguenther@suse.de> + + * gfortran.dg/predict-2.f90: Adjust to avoid redundant + inner loop preheader checking code. + +2021-10-04 Marek Polacek <polacek@redhat.com> + + PR c++/97573 + * c-c++-common/Warray-compare-1.c: New test. + * c-c++-common/Warray-compare-2.c: New test. + +2021-10-04 Richard Biener <rguenther@suse.de> + + * gcc.dg/auto-init-hardreg-1.c: New testcase. + +2021-10-04 Richard Biener <rguenther@suse.de> + + * c-c++-common/pr102285.c: New testcase. + +2021-10-04 Richard Biener <rguenther@suse.de> + + PR tree-optimization/102570 + * gcc.dg/tree-ssa/ssa-fre-96.c: New testcase. + * gcc.dg/tree-ssa/ssa-pre-33.c: Likewise. + +2021-10-04 Aldy Hernandez <aldyh@redhat.com> + + * g++.dg/Walloca2.C: New test. + +2021-10-04 Richard Biener <rguenther@suse.de> + + PR middle-end/102587 + * gcc.target/aarch64/sve/pr102587-1.c: New testcase. + * gcc.target/aarch64/sve/pr102587-2.c: Likewise. + +2021-10-04 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/54753 + * gfortran.dg/assumed_rank_23.f90: New file. + +2021-10-03 Iain Sandoe <iain@sandoe.co.uk> + + PR c++/101765 + * g++.dg/coroutines/pr101765.C: New test. + +2021-10-03 Iain Sandoe <iain@sandoe.co.uk> + + PR c++/99710 + * g++.dg/coroutines/pr99710.C: New test. + +2021-10-03 John Eivind Helset <jehelset@gmail.com> + + PR c++/100673 + * g++.dg/coroutines/pr100673.C: New test. + +2021-10-03 Iain Sandoe <iain@sandoe.co.uk> + + PR c++/101133 + * g++.dg/coroutines/pr101133.C: New test. + +2021-10-03 Iain Sandoe <iain@sandoe.co.uk> + + PR c++/99575 + * g++.dg/coroutines/pr99575.C: New test. + +2021-10-02 Aldy Hernandez <aldyh@redhat.com> + + * gcc.dg/tree-ssa/pr102563.c: New test. + +2021-10-02 H.J. Lu <hjl.tools@gmail.com> + + * gcc.dg/analyzer/torture/asm-x86-linux-rdmsr.c (DECLARE_ARGS): + Use unsigned long long for x86-64. + +2021-10-01 Aldy Hernandez <aldyh@redhat.com> + + PR tree-optimization/102546 + * gcc.dg/tree-ssa/pr102546.c: New file. + +2021-10-01 Martin Sebor <msebor@redhat.com> + + PR c/102103 + * g++.dg/cpp0x/constexpr-array-ptr10.C: Suppress a valid warning. + * g++.dg/warn/Wreturn-local-addr-6.C: Correct a cast. + * gcc.dg/Waddress.c: Expect a warning. + * c-c++-common/Waddress-3.c: New test. + * c-c++-common/Waddress-4.c: New test. + * g++.dg/warn/Waddress-5.C: New test. + * g++.dg/warn/Waddress-6.C: New test. + * g++.dg/warn/pr101219.C: Expect a warning. + * gcc.dg/Waddress-3.c: New test. + +2021-10-01 H.J. Lu <hjl.tools@gmail.com> + + * c-c++-common/tsan/atomic_stack.c: Don't expect print out from + __tsan_atomic32_fetch_add. + +2021-10-01 qingzhe huang <nickhuang99@hotmail.com> + + PR c++/101783 + * g++.dg/parse/pr101783.C: New test. + +2021-10-01 Jakub Jelinek <jakub@redhat.com> + Richard Biener <rguenther@suse.de> + + PR sanitizer/102515 + * c-c++-common/ubsan/div-by-zero-3.c: Use + -fsanitize=signed-integer-overflow instead of + -fsanitize=integer-divide-by-zero. + * c-c++-common/ubsan/div-by-zero-5.c: Likewise. + * c-c++-common/ubsan/div-by-zero-4.c: Likewise. Add + -fsanitize-undefined-trap-on-error. + * c-c++-common/ubsan/float-div-by-zero-2.c: New test. + * c-c++-common/ubsan/overflow-div-1.c: New test. + * c-c++-common/ubsan/overflow-div-2.c: New test. + * c-c++-common/ubsan/overflow-div-3.c: New test. + +2021-10-01 Kyrylo Tkachov <kyrylo.tkachov@arm.com> + + * gcc.target/aarch64/cpymem-size.c: Adjust scan for ilp32. + +2021-10-01 Andrew Pinski <apinski@marvell.com> + + * gcc.dg/vect/bb-slp-pr97709.c: Fix for computed goto + pointers. + +2021-10-01 Martin Liska <mliska@suse.cz> + + * gcc.target/i386/avx512er-vrsqrt28ps-3.c: Disable fast math. + * gcc.target/i386/avx512er-vrsqrt28ps-5.c: Likewise. + * gcc.target/i386/attr-optimize.c: New test. + +2021-10-01 Jakub Jelinek <jakub@redhat.com> + + * gfortran.dg/gomp/order-5.f90: Adjust scan-tree-dump-times regexps. + +2021-10-01 Jakub Jelinek <jakub@redhat.com> + + PR c++/102496 + * g++.dg/tls/pr102496-1.C: New test. + * g++.dg/tls/pr102496-2.C: New test. + +2021-10-01 Richard Biener <rguenther@suse.de> + + PR middle-end/102518 + * gcc.dg/torture/pr102518.c: New testcase. + +2021-09-30 David Edelsohn <dje.gcc@gmail.com> + + * gfortran.dg/c-interop/cf-descriptor-5-c.c: Include alloca.h. + +2021-09-30 Patrick Palka <ppalka@redhat.com> + + PR c++/102535 + * g++.dg/ext/is_trivially_constructible7.C: New test. + +2021-09-30 Patrick Palka <ppalka@redhat.com> + + * g++.dg/ext/is_constructible6.C: New test. + +2021-09-30 Patrick Palka <ppalka@redhat.com> + + PR c++/95567 + * g++.dg/cpp2a/spaceship-virtual1.C: New test. + +2021-09-30 Harald Anlauf <anlauf@gmx.de> + + PR fortran/102458 + * gfortran.dg/pr102458b.f90: New test. + +2021-09-30 Uroš Bizjak <ubizjak@gmail.com> + + PR target/89954 + * gcc.target/i386/pr89954.c: New test. + +2021-09-30 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/71703 + PR fortran/84007 + * gfortran.dg/c-interop/c535b-1.f90: Remove wrong comment. + * gfortran.dg/unlimited_polymorphic_1.f03: Extend. + * gfortran.dg/unlimited_polymorphic_32.f90: New test. + +2021-09-30 Iain Buclaw <ibuclaw@gdcproject.org> + + PR d/102476 + * gdc.dg/pr102476.d: New test. + +2021-09-30 Martin Liska <mliska@suse.cz> + + PR testsuite/102509 + * gcc.c-torture/compile/attr-complex-method.c: Skip if LTO is + used. + * gcc.c-torture/compile/attr-complex-method-2.c: Likewise. + +2021-09-29 Aldy Hernandez <aldyh@redhat.com> + + PR testsuite/102501 + * gcc.dg/tree-ssa/pr66752-3.c: Adjust. + * gcc.dg/tree-ssa/pr77445-2.c: Adjust. + +2021-09-29 Harald Anlauf <anlauf@gmx.de> + + PR fortran/102520 + * gfortran.dg/pr102520.f90: New test. + +2021-09-29 Jeff Law <jeffreyalaw@gmail.com> + + * gcc.c-torture/compile/920831-1.c: Fix computed goto types. + * gcc.c-torture/compile/pr27863.c: Likewise. + +2021-09-29 Richard Biener <rguenther@suse.de> + + PR testsuite/102517 + * gcc.dg/pr78408-1.c: Make S not power-of-two size. + +2021-09-29 Richard Biener <rguenther@suse.de> + + * gcc.target/i386/vect-alignment-peeling-1.c: New testcase. + * gcc.target/i386/vect-alignment-peeling-2.c: Likewise. + +2021-09-29 Kyrylo Tkachov <kyrylo.tkachov@arm.com> + Kyrylo Tkachov <kyrylo.tkachov@arm.com> + + * gcc.target/aarch64/cpymem-size.c: New test. + +2021-09-29 Kyrylo Tkachov <kyrylo.tkachov@arm.com> + Kyrylo Tkachov <kyrylo.tkachov@arm.com> + + * gcc.target/aarch64/memset-corner-cases-2.c: New test. + * gcc.target/aarch64/memset-strict-align-1.c: Adjust. + +2021-09-29 Jakub Jelinek <jakub@redhat.com> + + PR middle-end/102504 + * c-c++-common/gomp/scope-4.c: New test. + +2021-09-29 Andrew Pinski <apinski@marvell.com> + + * gcc.c-torture/compile/920826-1.c: Fix computed goto. + * gcc.c-torture/compile/pr27863.c: Likewise. + * gcc.c-torture/compile/pr70190.c: Likewise. + * gcc.dg/torture/pr89135.c: Likewise. + * gcc.dg/torture/pr90071.c: Likewise. + * gcc.dg/vect/bb-slp-pr97709.c: Likewise. + +2021-09-29 Richard Biener <rguenther@suse.de> + + * gcc.dg/out-of-bounds-1.c: Make memcpied size not power-of-two. + +2021-09-28 Patrick Palka <ppalka@redhat.com> + + PR c++/99909 + * g++.dg/cpp2a/concepts-ttp3.C: New test. + +2021-09-28 Andrew Pinski <apinski@marvell.com> + + PR c/32122 + * gcc.dg/comp-goto-5.c: New test. + * gcc.dg/comp-goto-6.c: New test. + +2021-09-28 Iain Sandoe <iain@sandoe.co.uk> + + PR c++/102454 + * g++.dg/coroutines/pr102454.C: New test. + +2021-09-28 Ilya Leoshkevich <iii@linux.ibm.com> + + * gcc.dg/tree-ssa/reassoc-46.c: New test. + * gcc.dg/tree-ssa/reassoc-46.h: Common code for new tests. + * gcc.dg/tree-ssa/reassoc-47.c: New test. + * gcc.dg/tree-ssa/reassoc-48.c: New test. + * gcc.dg/tree-ssa/reassoc-49.c: New test. + * gcc.dg/tree-ssa/reassoc-50.c: New test. + * gcc.dg/tree-ssa/reassoc-51.c: New test. + +2021-09-28 Aldy Hernandez <aldyh@redhat.com> + + * gcc.dg/auto-init-uninit-1.c: Adjust. + * gcc.dg/auto-init-uninit-15.c: Same. + * gcc.dg/guality/example.c: Same. + * gcc.dg/loop-8.c: Same. + * gcc.dg/strlenopt-40.c: Same. + * gcc.dg/tree-ssa/pr18133-2.c: Same. + * gcc.dg/tree-ssa/pr18134.c: Same. + * gcc.dg/uninit-1.c: Same. + * gcc.dg/uninit-pr44547.c: Same. + * gcc.dg/uninit-pr59970.c: Same. + +2021-09-28 Thomas Schwinge <thomas@codesourcery.com> + + * gfortran.dg/assumed_rank_22_aux.c: Adjust messages printed. + +2021-09-28 Jakub Jelinek <jakub@redhat.com> + + PR target/102498 + * gcc.target/i386/pr102498.c: New test. + +2021-09-28 Richard Biener <rguenther@suse.de> + + PR tree-optimization/99793 + * gcc.dg/tree-ssa/pr99793.c: New testcase. + +2021-09-28 Richard Biener <rguenther@suse.de> + + PR tree-optimization/100112 + * gcc.dg/tree-ssa/ssa-fre-95.c: New testcase. + +2021-09-28 Jakub Jelinek <jakub@redhat.com> + + PR middle-end/102492 + * g++.dg/gomp/simd-3.C: New test. + +2021-09-28 Aldy Hernandez <aldyh@redhat.com> + + PR tree-optimization/102511 + * gcc.dg/pr102511.c: New test. + * gcc.dg/tree-ssa/ssa-dom-thread-14.c: Adjust. + +2021-09-28 Hongyu Wang <hongyu.wang@intel.com> + + PR target/102230 + * gcc.target/i386/avx512fp16-floatvnhf.c: Remove xfail. + * gcc.target/i386/avx512fp16-trunc-extendvnhf.c: Ditto. + * gcc.target/i386/avx512fp16-truncvnhf.c: Ditto. + * gcc.target/i386/avx512fp16-64-32-vecop-1.c: New test. + * gcc.target/i386/avx512fp16-64-32-vecop-2.c: Ditto. + * gcc.target/i386/pr102230.c: Ditto. + +2021-09-28 Richard Biener <rguenther@suse.de> + + * gcc.target/i386/vect-pr97352.c: Pass -mno-avx2 -mno-avx512f. + +2021-09-28 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/102500 + * gfortran.dg/include_15.f90: Add 'dg-prune-output' to prune + -Wmissing-include-dirs output printed or not depending on + how the testsuite is run. + +2021-09-28 Richard Biener <rguenther@suse.de> + + * gcc.dg/vect/bb-slp-pr65935.c: Prefer 128bit vectorization + on x86. + +2021-09-28 Aldy Hernandez <aldyh@redhat.com> + + * gcc.dg/auto-init-uninit-1.c: Add -fthread-jumps. + * gcc.dg/auto-init-uninit-15.c: Same. + * gcc.dg/guality/example.c: Same. + * gcc.dg/loop-8.c: Same. + * gcc.dg/strlenopt-40.c: Same. + * gcc.dg/tree-ssa/pr18133-2.c: Same. + * gcc.dg/tree-ssa/pr18134.c: Same. + * gcc.dg/uninit-1.c: Same. + * gcc.dg/uninit-pr44547.c: Same. + * gcc.dg/uninit-pr59970.c: Same. + +2021-09-28 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/vect-rebuild.c: Adjust testcases. + * gcc.target/i386/avx512f-vect-rebuild.c: New test. + +2021-09-28 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-reduce-op-2.c: New test. + * gcc.target/i386/avx512fp16-reduce-op-3.c: New test. + +2021-09-27 Patrick Palka <ppalka@redhat.com> + + PR c++/102479 + * g++.dg/cpp1z/class-deduction12.C: Also test alias CTAD in the + same way. + * g++.dg/cpp1z/class-deduction99.C: New test. + +2021-09-27 Aldy Hernandez <aldyh@redhat.com> + + * gcc.dg/torture/pr55107.c: Adjust. + * gcc.dg/tree-ssa/phi_on_compare-1.c: Adjust. + * gcc.dg/tree-ssa/phi_on_compare-2.c: Adjust. + * gcc.dg/tree-ssa/phi_on_compare-3.c: Adjust. + * gcc.dg/tree-ssa/phi_on_compare-4.c: Adjust. + * gcc.dg/tree-ssa/pr21559.c: Adjust. + * gcc.dg/tree-ssa/pr59597.c: Adjust. + * gcc.dg/tree-ssa/pr61839_1.c: Adjust. + * gcc.dg/tree-ssa/pr61839_3.c: Adjust. + * gcc.dg/tree-ssa/pr71437.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-11.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-16.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-18.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-2a.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-4.c: Adjust. + * gcc.dg/tree-ssa/ssa-thread-14.c: Adjust. + * gcc.dg/tree-ssa/ssa-vrp-thread-1.c: Adjust. + * gcc.dg/tree-ssa/vrp106.c: Adjust. + * gcc.dg/tree-ssa/vrp55.c: Adjust. + +2021-09-27 Martin Liska <mliska@suse.cz> + + * gcc.c-torture/compile/attr-complex-method-2.c: New test. + * gcc.c-torture/compile/attr-complex-method.c: New test. + +2021-09-27 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/94070 + * gfortran.dg/c-interop/cf-out-descriptor-6.f90: Remove xfail. + * gfortran.dg/c-interop/size.f90: Remove xfail. + * gfortran.dg/intrinsic_size_3.f90: Update scan-tree-dump-times. + * gfortran.dg/transpose_optimization_2.f90: Likewise. + * gfortran.dg/size_optional_dim_1.f90: Add scan-tree-dump-not. + * gfortran.dg/assumed_rank_22.f90: New test. + * gfortran.dg/assumed_rank_22_aux.c: New test. + +2021-09-27 Andrew Pinski <apinski@marvell.com> + + PR c/94726 + * gcc.dg/pr94726.c: New test. + +2021-09-27 Richard Biener <rguenther@suse.de> + + PR tree-optimization/97351 + PR tree-optimization/97352 + PR tree-optimization/82426 + * gcc.target/i386/vect-pr82426.c: New testcase. + * gcc.target/i386/vect-pr97352.c: Likewise. + +2021-09-27 liuhongt <hongtao.liu@intel.com> + + Revert: + 2021-09-27 liuhongt <hongtao.liu@intel.com> + + PR target/101059 + * gcc.target/i386/sse2-pr101059.c: New test. + * gcc.target/i386/sse3-pr101059.c: New test. + +2021-09-26 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/101334 + * gfortran.dg/associated_assumed_rank.f90: New test. + +2021-09-25 Dimitar Dimitrov <dimitar@dinux.eu> + + * gcc.target/pru/regio-as-pointer.c: New negative test. + * gcc.target/pru/regio-as-pointer-2.c: New negative test. + * gcc.target/pru/regio-decl-2.c: New negative test. + * gcc.target/pru/regio-decl-3.c: New negative test. + * gcc.target/pru/regio-decl-4.c: New negative test. + * gcc.target/pru/regio-decl.c: New negative test. + * gcc.target/pru/regio-di.c: New negative test. + * gcc.target/pru/regio-hi.c: New negative test. + * gcc.target/pru/regio-qi.c: New negative test. + * gcc.target/pru/regio.c: New test. + * gcc.target/pru/regio.h: New helper header. + +2021-09-24 Harald Anlauf <anlauf@gmx.de> + + PR fortran/102458 + * gfortran.dg/pr102458.f90: New test. + +2021-09-24 Sandra Loosemore <sandra@codesourcery.com> + + PR fortran/101333 + * gfortran.dg/c-interop/c407c-1.f90: Remove xfails. + +2021-09-24 Patrick Palka <ppalka@redhat.com> + + PR c++/98216 + PR c++/91292 + * g++.dg/cpp2a/nontype-float2.C: New test. + +2021-09-24 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/55534 + * gfortran.dg/include_9.f90: Add dg-prune-output. + * gfortran.dg/include_23.f90: New test. + * gfortran.dg/include_24.f90: New test. + +2021-09-24 Aldy Hernandez <aldyh@redhat.com> + + * gcc.dg/tree-ssa/20030714-2.c: Adjust. + * gcc.dg/tree-ssa/pr66752-3.c: Adjust. + * gcc.dg/tree-ssa/pr77445-2.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-18.c: Adjust. + * gcc.dg/tree-ssa/ssa-dom-thread-7.c: Adjust. + * gcc.dg/vect/bb-slp-16.c: Adjust. + +2021-09-24 Hongyu Wang <hongyu.wang@intel.com> + + * gcc.target/i386/cond_op_addsubmuldiv__Float16-1.c: New test. + * gcc.target/i386/cond_op_addsubmuldiv__Float16-2.c: Ditto. + * gcc.target/i386/cond_op_fma__Float16-1.c: Ditto. + * gcc.target/i386/cond_op_fma__Float16-2.c: Ditto. + * gcc.target/i386/cond_op_maxmin__Float16-1.c: Ditto. + * gcc.target/i386/cond_op_maxmin__Float16-2.c: Ditto. + +2021-09-23 Sandra Loosemore <sandra@codesourcery.com> + + PR fortran/101320 + * gfortran.dg/c-interop/c516.f90: Remove xfails. Add more + tests. + +2021-09-23 Michel Morin <mimomorin@gmail.com> + + PR c++/77565 + * g++.dg/spellcheck-pr77565.C: New test. + +2021-09-23 Andrew MacLeod <amacleod@redhat.com> + + * gcc.dg/pr102463.c: New. + +2021-09-23 Harald Anlauf <anlauf@gmx.de> + Tobias Burnus <tobias@codesourcery.com> + + PR fortran/93834 + * gfortran.dg/coarray/coarray_allocated.f90: New test. + +2021-09-23 Bill Schmidt <wschmidt@linux.ibm.com> + + PR target/102024 + * g++.target/powerpc/pr102024.C: New. + +2021-09-23 Hongyu Wang <hongyu.wang@intel.com> + + * g++.target/i386/avx512fp16-vcondmn-vec.C: New test. + * g++.target/i386/avx512fp16-vcondmn-minmax.C: Ditto. + * gcc.target/i386/avx512fp16-vcondmn-loop-1.c: Ditto. + * gcc.target/i386/avx512fp16-vcondmn-loop-2.c: Ditto. + * gcc.target/i386/avx512fp16-vec_cmpmn.c: Ditto. + +2021-09-23 Hongyu Wang <hongyu.wang@intel.com> + + * gcc.target/i386/avx512fp16-trunc-extendvnhf.c: New test. + +2021-09-23 Hongyu Wang <hongyu.wang@intel.com> + + * gcc.target/i386/avx512fp16-floatvnhf.c: New test. + +2021-09-23 Hongyu Wang <hongyu.wang@intel.com> + + * gcc.target/i386/avx512fp16-trunchf.c: New test. + * gcc.target/i386/avx512fp16-truncvnhf.c: Ditto. + +2021-09-23 Hongyu Wang <hongyu.wang@intel.com> + + * gcc.target/i386/avx512fp16-builtin-minmax-1.c: New test. + +2021-09-23 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-fma-1.c: New test. + * gcc.target/i386/avx512fp16vl-fma-1.c: New test. + * gcc.target/i386/avx512fp16vl-fma-vectorize-1.c: New test. + +2021-09-23 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-builtin-round-1.c: Add new testcase. + +2021-09-23 Jakub Jelinek <jakub@redhat.com> + + PR c++/102413 + * g++.dg/gomp/attrs-14.C: New test. + +2021-09-23 Sandra Loosemore <sandra@codesourcery.com> + + PR fortran/101319 + * gfortran.dg/c-interop/assumed-type-dummy.f90: Remove xfail. + +2021-09-23 Sandra Loosemore <sandra@codesourcery.com> + + PR fortran/101334 + * gfortran.dg/c-interop/c535b-2.f90: Remove xfails. + * gfortran.dg/c-interop/c535b-3.f90: Likewise. + +2021-09-23 Sandra Loosemore <sandra@codesourcery.com> + + * gfortran.dg/assumed_rank_18.f90 (g): Wrap call to h in + select rank. + * gfortran.dg/assumed_type_10.f90 (test_array): Likewise for + call to test_lib. + * gfortran.dg/assumed_type_11.f90 (test_array): Likewise. + +2021-09-22 Tobias Burnus <tobias@codesourcery.com> + + PR fortran/55534 + * gfortran.dg/include_14.f90: Add -J testcase and update dg-output. + * gfortran.dg/include_15.f90: Likewise. + * gfortran.dg/include_16.f90: Likewise. + * gfortran.dg/include_17.f90: Likewise. + * gfortran.dg/include_18.f90: Likewise. + * gfortran.dg/include_19.f90: Likewise. + +2021-09-22 Roger Sayle <roger@nextmovesoftware.com> + Richard Biener <rguenther@suse.de> + + * gcc.dg/fold-negate-1.c: New test case. + +2021-09-22 H.J. Lu <hjl.tools@gmail.com> + + * gcc.target/i386/auto-init-2.c: Replace ia32 with { ! lp64 }. + * gcc.target/i386/auto-init-3.c (dg-options): Add -msse. + (dg-additional-options): Add -mfpmath=387 for ia32. + Replace lp64 with { ! ia32 }. Add a space after ia32. + * gcc.target/i386/auto-init-4.c: Replace lp64 with { ! ia32 }. + * gcc.target/i386/auto-init-5.c: Likewise. + * gcc.target/i386/auto-init-padding-3.c: Likewise. + * gcc.target/i386/auto-init-padding-7.c: Likewise. + * gcc.target/i386/auto-init-padding-8.c: Likewise. + * gcc.target/i386/auto-init-padding-9.c: Likewise. + +2021-09-22 Patrick Palka <ppalka@redhat.com> + + DR 2446 + PR c++/102412 + * g++.dg/cpp2a/concepts-nondep2.C: New test. + * g++.dg/cpp2a/concepts-nondep3.C: New test. + +2021-09-22 Jiufu Guo <guojiufu@linux.ibm.com> + + PR tree-optimization/102087 + * gcc.dg/pr102087.c: New test. + +2021-09-22 dianhong xu <dianhong.xu@intel.com> + + * gcc.target/i386/avx512fp16-14.c: New test. + +2021-09-22 dianhong xu <dianhong.xu@intel.com> + + * gcc.target/i386/avx512fp16-conjugation-1.c: New test. + * gcc.target/i386/avx512fp16vl-conjugation-1.c: New test. + +2021-09-22 dianhong xu <dianhong.xu@intel.com> + + * gcc.target/i386/avx512fp16-reduce-op-1.c: New test. + * gcc.target/i386/avx512fp16vl-reduce-op-1.c: Ditto. + +2021-09-22 dianhong xu <dianhong.xu@intel.com> + + * gcc.target/i386/avx512fp16-13.c: New test. + +2021-09-22 Andreas Krebbel <krebbel@linux.ibm.com> + + * gcc.target/s390/pr102222.c: New test. + +2021-09-22 Jakub Jelinek <jakub@redhat.com> + + PR middle-end/102415 + * c-c++-common/gomp/scope-3.c: New test. + +2021-09-22 Jakub Jelinek <jakub@redhat.com> + + * c-c++-common/gomp/allocate-6.c: New test. + * c-c++-common/gomp/allocate-7.c: New test. + * g++.dg/gomp/allocate-4.C: New test. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512vl-pr95046.c: New test. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/pr92658-avx512f.c: Refine testcase. + * gcc.target/i386/pr92658-avx512vl.c: Adjust scan-assembler, + only v2di->v2qi truncate is not supported, v4di->v4qi should + be supported. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-builtin-fpcompare-1.c: New test. + * gcc.target/i386/avx512fp16-builtin-fpcompare-2.c: New test. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-builtin-round-1.c: New test. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-builtin-sqrt-1.c: New test. + * gcc.target/i386/avx512fp16vl-builtin-sqrt-1.c: New test. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-vfcmaddcsh-1a.c: New test. + * gcc.target/i386/avx512fp16-vfcmaddcsh-1b.c: Ditto. + * gcc.target/i386/avx512fp16-vfcmulcsh-1a.c: Ditto. + * gcc.target/i386/avx512fp16-vfcmulcsh-1b.c: Ditto. + * gcc.target/i386/avx512fp16-vfmaddcsh-1a.c: Ditto. + * gcc.target/i386/avx512fp16-vfmaddcsh-1b.c: Ditto. + * gcc.target/i386/avx512fp16-vfmulcsh-1a.c: Ditto. + * gcc.target/i386/avx512fp16-vfmulcsh-1b.c: Ditto. + * gcc.target/i386/avx512fp16-complex-constraints.c: Ditto. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx-1.c: Add test for new builtins. + * gcc.target/i386/sse-13.c: Ditto. + * gcc.target/i386/sse-23.c: Ditto. + * gcc.target/i386/sse-14.c: Add test for new intrinsics. + * gcc.target/i386/sse-22.c: Ditto. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx512fp16-helper.h + (init_src): Adjust init value. + (NET_CMASK): New net mask for complex input. + * gcc.target/i386/avx512fp16-vfcmaddcph-1a.c: New test. + * gcc.target/i386/avx512fp16-vfcmaddcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16-vfcmulcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16-vfcmulcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16-vfmaddcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16-vfmaddcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16-vfmulcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16-vfmulcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfcmaddcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfcmaddcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfcmulcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfcmulcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfmaddcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfmaddcph-1b.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfmulcph-1a.c: Ditto. + * gcc.target/i386/avx512fp16vl-vfmulcph-1b.c: Ditto. + +2021-09-22 liuhongt <hongtao.liu@intel.com> + + * gcc.target/i386/avx-1.c: Add test for new builtins. + * gcc.target/i386/sse-13.c: Ditto. + * gcc.target/i386/sse-23.c: Ditto. + * gcc.target/i386/sse-14.c: Add test for new intrinsics. + * gcc.target/i386/sse-22.c: Ditto. + +2021-09-22 Barrett Adair <barrettellisadair@gmail.com> + + * g++.dg/cpp0x/constexpr-52830.C: Remove unwanted dg-ice. + * g++.dg/template/canon-type-15.C: New test. + * g++.dg/template/canon-type-16.C: New test. + * g++.dg/template/canon-type-17.C: New test. + * g++.dg/template/canon-type-18.C: New test. + * g++.dg/template/dependent-name15.C: New regression test. + * g++.dg/template/dependent-name16.C: New regression test. + +2021-09-21 Richard Biener <rguenther@suse.de> + + PR tree-optimization/102421 + * g++.dg/vect/pr102421.cc: New testcase. + +2021-09-21 Eric Botcazou <ebotcazou@adacore.com> + + * lib/target-supports.exp (no_fsanitize_address): Add missing bits. + * gcc.dg/uninit-pr93100.c: Skip if no_fsanitize_address. + * gcc.dg/pr91441.c: Likewise. + * gcc.dg/pr96260.c: Likewise. + * gcc.dg/pr96307.c: Likewise. + * g++.dg/warn/uninit-pr93100.C: Likewise. + * gnat.dg/asan1.adb: Likewise. + * gcc.dg/Wstringop-overflow-70.c: Adjust for SPARC. + * g++.dg/abi/anon4.C: Likewise. + +2021-09-21 Tobias Burnus <tobias@codesourcery.com> + + * gfortran.dg/include_6.f90: Change dg-error to + dg-warning and update pattern. + * gfortran.dg/include_14.f90: New test. + * gfortran.dg/include_15.f90: New test. + * gfortran.dg/include_16.f90: New test. + * gfortran.dg/include_17.f90: New test. + * gfortran.dg/include_18.f90: New test. + * gfortran.dg/include_19.f90: New test. + * gfortran.dg/include_20.f90: New test. + * gfortran.dg/include_21.f90: New test. + +2021-09-21 wangpc <pc.wang@linux.alibaba.com> + + * g++.target/aarch64/sve/static-var-in-template.C: New test. + 2021-09-20 Andrew MacLeod <amacleod@redhat.com> * gcc.dg/tree-ssa/evrp-ignore.c: New. diff --git a/gcc/testsuite/c-c++-common/Waddress-3.c b/gcc/testsuite/c-c++-common/Waddress-3.c new file mode 100644 index 0000000..9a13a44 --- /dev/null +++ b/gcc/testsuite/c-c++-common/Waddress-3.c @@ -0,0 +1,125 @@ +/* PR c/102103 - missing warning comparing array address to null + { dg-do compile } + { dg-options "-Wall" } */ + +typedef __INTPTR_TYPE__ intptr_t; +typedef __UINTPTR_TYPE__ uintptr_t; + +#ifndef __cplusplus +# define bool _Bool +#endif + +struct S { void *p, *a1[2], *a2[2][2]; } s, *p; + +extern const void *a1[2]; +extern void *a2[2][2], *ax[]; + +void T (bool); + +void test_array_eq_0 (int i) +{ + // Verify that casts intptr_t suppress the warning. + T ((intptr_t)a1 == 0); + T ((uintptr_t)a1 == 0); + T (a1 == 0); // { dg-warning "-Waddress" } + T (0 == &a1); // { dg-warning "-Waddress" } + // Verify that casts to other pointer types don't suppress it. + T ((void *)a1 == 0); // { dg-warning "-Waddress" } + T ((char *)a1 == 0); // { dg-warning "-Waddress" } + T (a1[0] == 0); + T (0 == (intptr_t)&a1[0]); + T (0 == &a1[0]); // { dg-warning "-Waddress" } + T (a1[i] == 0); + T (0 == (uintptr_t)&a1[i]); + T (0 == &a1[i]); // { dg-warning "-Waddress" } + + T ((intptr_t)a2 == 0); + T (a2 == 0); // { dg-warning "-Waddress" } + T (0 == &a2); // { dg-warning "-Waddress" } + T (a2[0] == 0); // { dg-warning "-Waddress" } + T (0 == &a1[0]); // { dg-warning "-Waddress" } + T (a2[i] == 0); // { dg-warning "-Waddress" } + T (0 == &a2[i]); // { dg-warning "-Waddress" } + T (a2[0][0] == 0); + T (0 == &a2[0][0]); // { dg-warning "-Waddress" } + T (&ax == 0); // { dg-warning "-Waddress" } + T (0 == &ax); // { dg-warning "-Waddress" } + T (&ax[0] == 0); // { dg-warning "-Waddress" } + T (0 == ax[0]); +} + + +void test_array_neq_0 (int i) +{ + // Verify that casts to intptr_t suppress the warning. + T ((uintptr_t)a1); + + T (a1); // { dg-warning "-Waddress" } + T ((void *)a1); // { dg-warning "-Waddress" } + T (&a1 != 0); // { dg-warning "-Waddress" } + T (a1[0]); + T (&a1[0] != 0); // { dg-warning "-Waddress" } + T (a1[i]); + T (&a1[i] != 0); // { dg-warning "-Waddress" } + + T ((intptr_t)a2); + T (a2); // { dg-warning "-Waddress" } + T ((void *)a2); // { dg-warning "-Waddress" } + T ((char *)a2); // { dg-warning "-Waddress" } + T (&a2 != 0); // { dg-warning "-Waddress" } + T (a2[0]); // { dg-warning "-Waddress" } + T (&a1[0] != 0); // { dg-warning "-Waddress" } + T (a2[i]); // { dg-warning "-Waddress" } + T (&a2[i] != 0); // { dg-warning "-Waddress" } + T (a2[0][0]); + T (&a2[0][0] != 0); // { dg-warning "-Waddress" } +} + + +void test_member_array_eq_0 (int i) +{ + // Verify that casts to intptr_t suppress the warning. + T ((intptr_t)s.a1 == 0); + T (s.a1 == 0); // { dg-warning "-Waddress" } + T (0 == &a1); // { dg-warning "-Waddress" } + T (s.a1[0] == 0); + T ((void*)s.a1); // { dg-warning "-Waddress" } + T (0 == &a1[0]); // { dg-warning "-Waddress" } + T (s.a1[i] == 0); + T (0 == &a1[i]); // { dg-warning "-Waddress" } + + T ((uintptr_t)s.a2 == 0); + T (s.a2 == 0); // { dg-warning "-Waddress" } + T (0 == &a2); // { dg-warning "-Waddress" } + T ((void *)s.a2 == 0);// { dg-warning "-Waddress" } + T (s.a2[0] == 0); // { dg-warning "-Waddress" } + T (0 == &a1[0]); // { dg-warning "-Waddress" } + T (s.a2[i] == 0); // { dg-warning "-Waddress" } + T (0 == &a2[i]); // { dg-warning "-Waddress" } + T (s.a2[0][0] == 0); + T (0 == &a2[0][0]); // { dg-warning "-Waddress" } +} + + +void test_member_array_neq_0 (int i) +{ + // Verify that casts to intptr_t suppress the warning. + T ((uintptr_t)s.a1); + T (s.a1); // { dg-warning "-Waddress" } + T (&s.a1 != 0); // { dg-warning "-Waddress" } + T ((void *)&s.a1[0]); // { dg-warning "-Waddress" } + T (s.a1[0]); + T (&s.a1[0] != 0); // { dg-warning "-Waddress" } + T (s.a1[i]); + T (&s.a1[i] != 0); // { dg-warning "-Waddress" } + + T ((intptr_t)s.a2); + T (s.a2); // { dg-warning "-Waddress" } + T (&s.a2 != 0); // { dg-warning "-Waddress" } + T (s.a2[0]); // { dg-warning "-Waddress" } + T (&s.a1[0] != 0); // { dg-warning "-Waddress" } + T (s.a2[i]); // { dg-warning "-Waddress" } + T (&s.a2[i] != 0); // { dg-warning "-Waddress" } + T (s.a2[0][0]); + T (&s.a2[0][0] != 0); // { dg-warning "-Waddress" } +} diff --git a/gcc/testsuite/c-c++-common/Waddress-4.c b/gcc/testsuite/c-c++-common/Waddress-4.c new file mode 100644 index 0000000..489a0cd --- /dev/null +++ b/gcc/testsuite/c-c++-common/Waddress-4.c @@ -0,0 +1,106 @@ +/* PR c/102103 - missing warning comparing array address to null + { dg-do compile } + { dg-options "-Wall" } */ + +typedef __INTPTR_TYPE__ intptr_t; +typedef __INTPTR_TYPE__ uintptr_t; + +extern char *ax[], *a2[][2]; + +void T (int); + +void test_ax_plus_eq_0 (int i) +{ + // Verify that casts to intptr_t suppress the warning. + T ((intptr_t)(ax + 0) == 0); + T ((uintptr_t)(ax + 1) == 0); + + T (ax + 0 == 0); // { dg-warning "-Waddress" } + T (&ax[0] == 0); // { dg-warning "-Waddress" } + T (ax - 1 == 0); // { dg-warning "-Waddress" } + T (0 == &ax[-1]); // { dg-warning "-Waddress" } + T ((void *)(&ax[0] + 2) == 0); // { dg-warning "-Waddress" } + T (&ax[0] + 2 == 0); // { dg-warning "-Waddress" } + T (ax + 3 == 0); // { dg-warning "-Waddress" } + T (0 == &ax[-4]); // { dg-warning "-Waddress" } + T (ax - i == 0); // { dg-warning "-Waddress" } + T (&ax[i] == 0); // { dg-warning "-Waddress" } + T (0 == &ax[1] + i); // { dg-warning "-Waddress" } +} + +void test_a2_plus_eq_0 (int i) +{ + // Verify that casts to intptr_t suppress the warning. + T ((intptr_t)(a2 + 0) == 0); + T ((uintptr_t)(a2 + 1) == 0); + + T (a2 + 0 == 0); // { dg-warning "-Waddress" } + // Verify that a cast to another pointer type doesn't suppress it. + T ((void*)(a2 + 0) == 0); // { dg-warning "-Waddress" } + T ((char*)a2 + 1 == 0); // { dg-warning "-Waddress" } + T (&a2[0] == 0); // { dg-warning "-Waddress" } + T (a2 - 1 == 0); // { dg-warning "-Waddress" } + T (0 == &a2[-1]); // { dg-warning "-Waddress" } + T (a2 + 2 == 0); // { dg-warning "-Waddress" } + T (0 == &a2[-2]); // { dg-warning "-Waddress" } + T (a2 - i == 0); // { dg-warning "-Waddress" } + T (&a2[i] == 0); // { dg-warning "-Waddress" } +} + +// Exercise a pointer. +void test_p_plus_eq_0 (int *p, int i) +{ + /* P + 0 and equivalently &P[0] are invalid for a null P but they're + folded to p before the warning has a chance to trigger. */ + T (p + 0 == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + T (&p[0] == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + + T (p - 1 == 0); // { dg-warning "-Waddress" } + T (0 == &p[-1]); // { dg-warning "-Waddress" } + T (p + 2 == 0); // { dg-warning "-Waddress" } + T (0 == &p[-2]); // { dg-warning "-Waddress" } + T (p - i == 0); // { dg-warning "-Waddress" } + T (&p[i] == 0); // { dg-warning "-Waddress" } +} + +// Exercise pointer to array. +void test_pa_plus_eq_0 (int (*p)[], int (*p2)[][2], int i) +{ + // The array pointer may be null. + T (*p == 0); + /* &**P is equivalent to *P and might be the result od macro expansion. + Verify it doesn't cause a warning. */ + T (&**p == 0); + + /* *P + 0 is invalid but folded to *P before the warning has a chance + to trigger. */ + T (*p + 0 == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + + T (&(*p)[0] == 0); // { dg-warning "-Waddress" } + T (*p - 1 == 0); // { dg-warning "-Waddress" } + T (0 == &(*p)[-1]); // { dg-warning "-Waddress" } + T (*p + 2 == 0); // { dg-warning "-Waddress" } + T (0 == &(*p)[-2]); // { dg-warning "-Waddress" } + T (*p - i == 0); // { dg-warning "-Waddress" } + T (&(*p)[i] == 0); // { dg-warning "-Waddress" } + + + /* Similar to the above but for a pointer to a two-dimensional array, + referring to the higher-level element (i.e., an array itself). */ + T (*p2 == 0); + T (**p2 == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + T (&**p2 == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + T (&***p2 == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + T (&**p2 == 0); + + T (*p2 + 0 == 0); // { dg-warning "-Waddress" "pr102555" { xfail *-*-* } } + T (&(*p2)[0] == 0); // { dg-warning "-Waddress" } + T (&(*p2)[0][1] == 0); // { dg-warning "-Waddress" } + T (*p2 - 1 == 0); // { dg-warning "-Waddress" } + T (0 == &(*p2)[-1]); // { dg-warning "-Waddress" } + T (0 == &(*p2)[1][2]); // { dg-warning "-Waddress" } + T (*p2 + 2 == 0); // { dg-warning "-Waddress" } + T (0 == &(*p2)[-2]); // { dg-warning "-Waddress" } + T (*p2 - i == 0); // { dg-warning "-Waddress" } + T (&(*p2)[i] == 0); // { dg-warning "-Waddress" } +} diff --git a/gcc/testsuite/c-c++-common/Warray-compare-1.c b/gcc/testsuite/c-c++-common/Warray-compare-1.c new file mode 100644 index 0000000..922396c --- /dev/null +++ b/gcc/testsuite/c-c++-common/Warray-compare-1.c @@ -0,0 +1,44 @@ +/* PR c++/97573 */ +/* { dg-do compile } */ +/* { dg-options "-Wall" } */ + +#ifndef __cplusplus +# define bool _Bool +#endif + +int arr1[5]; +int arr2[5]; +int arr3[2][2]; +int arr4[2][2]; + +bool +g () +{ + bool b = arr1 == arr2; /* { dg-warning "comparison between two arrays" } */ + b &= arr1 != arr2; /* { dg-warning "comparison between two arrays" } */ + b &= arr1 > arr2; /* { dg-warning "comparison between two arrays" } */ + b &= arr1 >= arr2; /* { dg-warning "comparison between two arrays" } */ + b &= arr1 < arr2; /* { dg-warning "comparison between two arrays" } */ + b &= arr1 <= arr2; /* { dg-warning "comparison between two arrays" } */ +#ifdef __cplusplus + b &= +arr1 == +arr2; + b &= +arr1 != +arr2; + b &= +arr1 > +arr2; + b &= +arr1 >= +arr2; + b &= +arr1 < +arr2; + b &= +arr1 <= +arr2; +#endif + b &= &arr1[0] == &arr2[0]; + b &= &arr1[0] != &arr2[0]; + b &= &arr1[0] > &arr2[0]; + b &= &arr1[0] >= &arr2[0]; + b &= &arr1[0] < &arr2[0]; + b &= &arr1[0] <= &arr2[0]; + + b &= arr3 == arr4; /* { dg-warning "comparison between two arrays" } */ + +#if defined(__cplusplus) && __cplusplus > 201703L + auto cmp = arr1 <=> arr2; /* { dg-error "invalid operands" "" { target c++20 } } */ +#endif + return b; +} diff --git a/gcc/testsuite/c-c++-common/Warray-compare-2.c b/gcc/testsuite/c-c++-common/Warray-compare-2.c new file mode 100644 index 0000000..b3688e6 --- /dev/null +++ b/gcc/testsuite/c-c++-common/Warray-compare-2.c @@ -0,0 +1,44 @@ +/* PR c++/97573 */ +/* { dg-do compile } */ +/* { dg-options "-Wall -Wno-array-compare" } */ + +#ifndef __cplusplus +# define bool _Bool +#endif + +int arr1[5]; +int arr2[5]; +int arr3[2][2]; +int arr4[2][2]; + +bool +g () +{ + bool b = arr1 == arr2; /* { dg-bogus "comparison between two arrays" } */ + b &= arr1 != arr2; /* { dg-bogus "comparison between two arrays" } */ + b &= arr1 > arr2; /* { dg-bogus "comparison between two arrays" } */ + b &= arr1 >= arr2; /* { dg-bogus "comparison between two arrays" } */ + b &= arr1 < arr2; /* { dg-bogus "comparison between two arrays" } */ + b &= arr1 <= arr2; /* { dg-bogus "comparison between two arrays" } */ +#ifdef __cplusplus + b &= +arr1 == +arr2; + b &= +arr1 != +arr2; + b &= +arr1 > +arr2; + b &= +arr1 >= +arr2; + b &= +arr1 < +arr2; + b &= +arr1 <= +arr2; +#endif + b &= &arr1[0] == &arr2[0]; + b &= &arr1[0] != &arr2[0]; + b &= &arr1[0] > &arr2[0]; + b &= &arr1[0] >= &arr2[0]; + b &= &arr1[0] < &arr2[0]; + b &= &arr1[0] <= &arr2[0]; + + b &= arr3 == arr4; /* { dg-bogus "comparison between two arrays" } */ + +#if defined(__cplusplus) && __cplusplus > 201703L + auto cmp = arr1 <=> arr2; /* { dg-error "invalid operands" "" { target c++20 } } */ +#endif + return b; +} diff --git a/gcc/testsuite/c-c++-common/gomp/allocate-6.c b/gcc/testsuite/c-c++-common/gomp/allocate-6.c new file mode 100644 index 0000000..059fd72 --- /dev/null +++ b/gcc/testsuite/c-c++-common/gomp/allocate-6.c @@ -0,0 +1,84 @@ +typedef enum omp_allocator_handle_t +#if __cplusplus >= 201103L +: __UINTPTR_TYPE__ +#endif +{ + omp_null_allocator = 0, + omp_default_mem_alloc = 1, + omp_large_cap_mem_alloc = 2, + omp_const_mem_alloc = 3, + omp_high_bw_mem_alloc = 4, + omp_low_lat_mem_alloc = 5, + omp_cgroup_mem_alloc = 6, + omp_pteam_mem_alloc = 7, + omp_thread_mem_alloc = 8, + __omp_allocator_handle_t_max__ = __UINTPTR_MAX__ +} omp_allocator_handle_t; + +int bar (int, int *, int); +omp_allocator_handle_t baz (void); + +void +foo (int x, int z) +{ + int y[16] = { 0 }, r = 0, i; + omp_allocator_handle_t h = baz (); + #pragma omp parallel allocate (align (sizeof (int)) : x) allocate (allocator (omp_default_mem_alloc) : y) \ + allocate (align (8), allocator ((omp_allocator_handle_t) omp_default_mem_alloc):z) firstprivate (x, y, z) + bar (x, y, z); + #pragma omp task private (x) firstprivate (z) allocate (allocator (omp_low_lat_mem_alloc) :x,z) + bar (0, &x, z); + #pragma omp taskwait + #pragma omp target teams distribute parallel for private (x) firstprivate (y) \ + allocate (allocator ((omp_allocator_handle_t)(omp_default_mem_alloc + 0)), align (16) : z) \ + allocate (allocator (omp_default_mem_alloc) : x, y) allocate (align (32), allocator (omp_low_lat_mem_alloc): r) \ + lastprivate (z) reduction(+:r) + for (i = 0; i < 64; i++) + { + z = bar (0, &x, 0); + r += bar (1, y, 0); + } + #pragma omp single private (x) allocate (allocator (h):x) + ; + #pragma omp single allocate (align (2 * sizeof (int)), allocator (*&h) : x) private (x) + ; + #pragma omp parallel shared (r, x, z) + #pragma omp single firstprivate (r) allocate (align (4) : x, r, z) private (x, z) + ; + #pragma omp for allocate (align (2 * 2 * 2) : x) private (x) + for (i = 0; i < 64; i++) + x = 1; + #pragma omp sections private (x) allocate (allocator (omp_low_lat_mem_alloc), align (8): x) + { + x = 1; + #pragma omp section + x = 2; + #pragma omp section + x = 3; + } + #pragma omp taskgroup task_reduction(+:r) allocate (allocator (omp_default_mem_alloc), align (__alignof (r)) : r) + #pragma omp task in_reduction(+:r) allocate (align (2 * sizeof (r)), allocator (omp_default_mem_alloc) : r) + r += bar (r, &r, 0); + #pragma omp teams private (x) firstprivate (y) allocate (allocator (h), align (8) : x, y) + bar (x, y, 0); + #pragma omp taskloop lastprivate (x) reduction (+:r) allocate (align (16), allocator (h) : x, r) + for (i = 0; i < 16; i++) + { + r += bar (0, &r, 0); + x = i; + } + #pragma omp taskgroup task_reduction(+:r) allocate (allocator (omp_default_mem_alloc), align (64) : r) + #pragma omp taskloop firstprivate (x) in_reduction (+:r) \ + allocate (allocator (omp_default_mem_alloc), align (128) : x, r) + for (i = 0; i < 16; i++) + r += bar (x, &r, 0); + #pragma omp taskwait +} + +void +qux (const omp_allocator_handle_t h) +{ + int x = 0; + #pragma omp parallel firstprivate (x) allocate (align (16), allocator (h): x) + x = 1; +} diff --git a/gcc/testsuite/c-c++-common/gomp/allocate-7.c b/gcc/testsuite/c-c++-common/gomp/allocate-7.c new file mode 100644 index 0000000..d125d92 --- /dev/null +++ b/gcc/testsuite/c-c++-common/gomp/allocate-7.c @@ -0,0 +1,41 @@ +typedef enum omp_allocator_handle_t +#if __cplusplus >= 201103L +: __UINTPTR_TYPE__ +#endif +{ + omp_null_allocator = 0, + omp_default_mem_alloc = 1, + omp_large_cap_mem_alloc = 2, + omp_const_mem_alloc = 3, + omp_high_bw_mem_alloc = 4, + omp_low_lat_mem_alloc = 5, + omp_cgroup_mem_alloc = 6, + omp_pteam_mem_alloc = 7, + omp_thread_mem_alloc = 8, + __omp_allocator_handle_t_max__ = __UINTPTR_MAX__ +} omp_allocator_handle_t; + +int bar (int *); +omp_allocator_handle_t baz (void); + +void +foo (int x, int z) +{ + int i; + #pragma omp parallel private (x) allocate (allocator (0.0) : x) /* { dg-error "'allocate' clause allocator expression has type 'double' rather than 'omp_allocator_handle_t'" } */ + bar (&x); + #pragma omp parallel private (x) allocate (allocator (0) : x) /* { dg-error "'allocate' clause allocator expression has type 'int' rather than 'omp_allocator_handle_t'" } */ + bar (&x); + #pragma omp parallel private (x) allocate (align (z) : x) /* { dg-error "'allocate' clause 'align' modifier argument needs to be positive constant power of two integer expression" } */ + bar (&x); + #pragma omp parallel private (x) allocate (align (16.0) : x) /* { dg-error "'allocate' clause 'align' modifier argument needs to be positive constant power of two integer expression" } */ + bar (&x); + #pragma omp parallel private (x) allocate (align (14) : x) /* { dg-error "'allocate' clause 'align' modifier argument needs to be positive constant power of two integer expression" } */ + bar (&x); + #pragma omp parallel private (x) allocate (align (0) : x) /* { dg-error "'allocate' clause 'align' modifier argument needs to be positive constant power of two integer expression" } */ + bar (&x); + #pragma omp parallel private (x) allocate (align (16), align (16) : x) /* { dg-error "expected|duplicate|declared|specified" } */ + bar (&x); /* { dg-warning "more than once" "" { target c++ } .-1 } */ + #pragma omp parallel private (x) allocate (allocator (omp_default_mem_alloc), allocator (omp_default_mem_alloc) : x) /* { dg-error "expected|duplicate|declared|specified" } */ + bar (&x); /* { dg-warning "more than once" "" { target c++ } .-1 } */ +} diff --git a/gcc/testsuite/c-c++-common/gomp/scope-3.c b/gcc/testsuite/c-c++-common/gomp/scope-3.c new file mode 100644 index 0000000..78bb1a3 --- /dev/null +++ b/gcc/testsuite/c-c++-common/gomp/scope-3.c @@ -0,0 +1,21 @@ +/* PR middle-end/102415 */ + +extern +#ifdef __cplusplus +"C" +#endif +void abort (); + +void +foo (void) +{ + #pragma omp scope nowait + abort (); +} + +void +bar (void) +{ + #pragma omp scope + abort (); +} diff --git a/gcc/testsuite/c-c++-common/gomp/scope-4.c b/gcc/testsuite/c-c++-common/gomp/scope-4.c new file mode 100644 index 0000000..924ae9c --- /dev/null +++ b/gcc/testsuite/c-c++-common/gomp/scope-4.c @@ -0,0 +1,11 @@ +/* PR middle-end/102504 */ +/* { dg-do compile } */ + +int +foo () +{ + int r = 0; + #pragma omp scope reduction(+:r) /* { dg-error "reduction variable 'r' is private in outer context" } */ + r++; + return r; +} diff --git a/gcc/testsuite/c-c++-common/pr102285.c b/gcc/testsuite/c-c++-common/pr102285.c new file mode 100644 index 0000000..644054b --- /dev/null +++ b/gcc/testsuite/c-c++-common/pr102285.c @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O -ftrivial-auto-var-init=zero -Wuninitialized" } */ + +int +qy (void) +{ + int tw = 4; + int fb[tw]; + return fb[2]; /* { dg-warning "uninitialized" } */ +} diff --git a/gcc/testsuite/c-c++-common/tsan/atomic_stack.c b/gcc/testsuite/c-c++-common/tsan/atomic_stack.c index 746afa7..09ac7c7 100644 --- a/gcc/testsuite/c-c++-common/tsan/atomic_stack.c +++ b/gcc/testsuite/c-c++-common/tsan/atomic_stack.c @@ -31,5 +31,4 @@ int main() { /* { dg-output "WARNING: ThreadSanitizer: data race.*(\n|\r\n|\r)" } */ /* { dg-output " Atomic write of size 4.*" } */ -/* { dg-output " #0 __tsan_atomic32_fetch_add.*" } */ -/* { dg-output " #1 Thread1.*" } */ +/* { dg-output " #0 Thread1.*" } */ diff --git a/gcc/testsuite/c-c++-common/ubsan/div-by-zero-3.c b/gcc/testsuite/c-c++-common/ubsan/div-by-zero-3.c index 266423a..1d51e35 100644 --- a/gcc/testsuite/c-c++-common/ubsan/div-by-zero-3.c +++ b/gcc/testsuite/c-c++-common/ubsan/div-by-zero-3.c @@ -1,5 +1,5 @@ /* { dg-do run } */ -/* { dg-options "-fsanitize=integer-divide-by-zero -Wno-overflow" } */ +/* { dg-options "-fsanitize=signed-integer-overflow -Wno-overflow" } */ #include <limits.h> diff --git a/gcc/testsuite/c-c++-common/ubsan/div-by-zero-4.c b/gcc/testsuite/c-c++-common/ubsan/div-by-zero-4.c index 02162e1..ef431c9 100644 --- a/gcc/testsuite/c-c++-common/ubsan/div-by-zero-4.c +++ b/gcc/testsuite/c-c++-common/ubsan/div-by-zero-4.c @@ -1,5 +1,5 @@ /* { dg-do run } */ -/* { dg-options "-fsanitize=integer-divide-by-zero -Wno-overflow" } */ +/* { dg-options "-fsanitize=signed-integer-overflow -fsanitize-undefined-trap-on-error -Wno-overflow" } */ #define INT_MIN (-__INT_MAX__ - 1) diff --git a/gcc/testsuite/c-c++-common/ubsan/div-by-zero-5.c b/gcc/testsuite/c-c++-common/ubsan/div-by-zero-5.c index bb391c5..853a3dc 100644 --- a/gcc/testsuite/c-c++-common/ubsan/div-by-zero-5.c +++ b/gcc/testsuite/c-c++-common/ubsan/div-by-zero-5.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-fsanitize=integer-divide-by-zero" } */ +/* { dg-options "-fsanitize=signed-integer-overflow" } */ void foo (void) diff --git a/gcc/testsuite/c-c++-common/ubsan/float-div-by-zero-2.c b/gcc/testsuite/c-c++-common/ubsan/float-div-by-zero-2.c new file mode 100644 index 0000000..61d050a --- /dev/null +++ b/gcc/testsuite/c-c++-common/ubsan/float-div-by-zero-2.c @@ -0,0 +1,18 @@ +/* { dg-do run } */ +/* { dg-shouldfail "ubsan" } */ +/* { dg-options "-fsanitize=float-divide-by-zero -fno-sanitize-recover=float-divide-by-zero -fsanitize-recover=integer-divide-by-zero" } */ + +int +main (void) +{ + volatile float a = 1.3f; + volatile double b = 0.0; + volatile int c = 4; + volatile float res; + + res = a / b; + + return 0; +} + +/* { dg-output "division by zero" } */ diff --git a/gcc/testsuite/c-c++-common/ubsan/overflow-div-1.c b/gcc/testsuite/c-c++-common/ubsan/overflow-div-1.c new file mode 100644 index 0000000..d781660 --- /dev/null +++ b/gcc/testsuite/c-c++-common/ubsan/overflow-div-1.c @@ -0,0 +1,17 @@ +/* { dg-do run } */ +/* { dg-options "-fsanitize=integer-divide-by-zero -fno-sanitize-recover=undefined,float-divide-by-zero -Wno-overflow" } */ + +#include <limits.h> + +int +main (void) +{ + volatile int min = INT_MIN; + volatile int zero = 0; + + INT_MIN / -1; + min / -1; + min / (10 * zero - (2 - 1)); + + return 0; +} diff --git a/gcc/testsuite/c-c++-common/ubsan/overflow-div-2.c b/gcc/testsuite/c-c++-common/ubsan/overflow-div-2.c new file mode 100644 index 0000000..dfef1b0 --- /dev/null +++ b/gcc/testsuite/c-c++-common/ubsan/overflow-div-2.c @@ -0,0 +1,41 @@ +/* { dg-do run { target *-*-linux* *-*-gnu* } } */ +/* { dg-shouldfail "ubsan" } */ +/* { dg-options "-fsanitize=undefined -fno-sanitize-recover=integer-divide-by-zero" } */ + +#include <limits.h> +#include <signal.h> +#include <stdlib.h> + +int cnt; + +__attribute__((noipa)) int +foo (int x, int y) +{ + return x / y; +} + +void +handler (int i) +{ + if (cnt++ != 0) + exit (0); + volatile int b = foo (5, 0); + exit (0); +} + +int +main (void) +{ + struct sigaction s; + sigemptyset (&s.sa_mask); + s.sa_handler = handler; + s.sa_flags = 0; + sigaction (SIGFPE, &s, NULL); + volatile int a = foo (INT_MIN, -1); + cnt++; + volatile int b = foo (5, 0); + return 0; +} + +/* { dg-output "division of -2147483648 by -1 cannot be represented in type 'int'\[^\n\r]*(\n|\r\n|\r)" } */ +/* { dg-output "\[^\n\r]*division by zero\[^\n\r]*" } */ diff --git a/gcc/testsuite/c-c++-common/ubsan/overflow-div-3.c b/gcc/testsuite/c-c++-common/ubsan/overflow-div-3.c new file mode 100644 index 0000000..479dffb --- /dev/null +++ b/gcc/testsuite/c-c++-common/ubsan/overflow-div-3.c @@ -0,0 +1,41 @@ +/* { dg-do run { target *-*-linux* *-*-gnu* } } */ +/* { dg-shouldfail "ubsan" } */ +/* { dg-options "-fsanitize=undefined -fno-sanitize-recover=signed-integer-overflow" } */ + +#include <limits.h> +#include <signal.h> +#include <stdlib.h> + +int cnt; + +__attribute__((noipa)) int +foo (int x, int y) +{ + return x / y; +} + +void +handler (int i) +{ + if (cnt++ != 0) + exit (0); + volatile int b = foo (INT_MIN, -1); + exit (0); +} + +int +main (void) +{ + struct sigaction s; + sigemptyset (&s.sa_mask); + s.sa_handler = handler; + s.sa_flags = 0; + sigaction (SIGFPE, &s, NULL); + volatile int a = foo (42, 0); + cnt++; + volatile int b = foo (INT_MIN, -1); + return 0; +} + +/* { dg-output "division by zero\[^\n\r]*(\n|\r\n|\r)" } */ +/* { dg-output "\[^\n\r]*division of -2147483648 by -1 cannot be represented in type 'int'" } */ diff --git a/gcc/testsuite/g++.dg/Walloca2.C b/gcc/testsuite/g++.dg/Walloca2.C new file mode 100644 index 0000000..b6992d0 --- /dev/null +++ b/gcc/testsuite/g++.dg/Walloca2.C @@ -0,0 +1,6 @@ +// { dg-do compile } +// { dg-options "-Walloca-larger-than=4207115063 -Wvla-larger-than=1233877270 -O2 --param ggc-min-heapsize=0 --param ggc-min-expand=0 -w" } +// { dg-require-effective-target alloca } + +int a; +char *b = static_cast<char *>(__builtin_alloca (a)); diff --git a/gcc/testsuite/g++.dg/coroutines/pr100673.C b/gcc/testsuite/g++.dg/coroutines/pr100673.C new file mode 100644 index 0000000..750ce66 --- /dev/null +++ b/gcc/testsuite/g++.dg/coroutines/pr100673.C @@ -0,0 +1,18 @@ +// { dg-additional-options "-fsyntax-only -w" } + +// Diagnose bad coroutine awatiable type. + +#include<coroutine> + +struct coro{ + struct not_a_template{}; + using promise_type = coro; + static constexpr std::suspend_always initial_suspend()noexcept{ return {}; } + constexpr bool await_ready()noexcept{ return false; } + constexpr not_a_template await_suspend(std::coroutine_handle<>)noexcept{ return{}; } + constexpr void await_resume()noexcept{} + static coro body() + { + co_await coro{}; // { dg-error {'await_suspend' must return 'void', 'bool' or a coroutine handle} } + } +}; diff --git a/gcc/testsuite/g++.dg/coroutines/pr101133.C b/gcc/testsuite/g++.dg/coroutines/pr101133.C new file mode 100644 index 0000000..6c6bc16 --- /dev/null +++ b/gcc/testsuite/g++.dg/coroutines/pr101133.C @@ -0,0 +1,31 @@ +#include <coroutine> +#include <string> + +template<typename T> +struct Awaiter +{ + bool await_ready() const { return false; } + void await_suspend(std::coroutine_handle<>) const {} + T await_resume() const { return T{}; } +}; + +struct ReturnObject +{ + struct promise_type + { + ReturnObject get_return_object() { return {}; } + std::suspend_never initial_suspend() noexcept { return {}; } + std::suspend_never final_suspend() noexcept { return {}; } + void return_void() {} + void unhandled_exception() {} + }; +}; + +ReturnObject f() +{ + auto a1 = Awaiter<int>{}; + auto a2 = Awaiter<std::string>{}; + + [[maybe_unused]] auto v1 = co_await a1; // ok + [[maybe_unused]] std::string v2 = co_await a2; // error +} diff --git a/gcc/testsuite/g++.dg/coroutines/pr101765.C b/gcc/testsuite/g++.dg/coroutines/pr101765.C new file mode 100644 index 0000000..49a49d1 --- /dev/null +++ b/gcc/testsuite/g++.dg/coroutines/pr101765.C @@ -0,0 +1,45 @@ +// We cannot compile this yet, much run it - but one day it might be +// feasible, so do the minimum for now. +// { dg-additional-options " -fsyntax-only -Wno-vla" } + +#include "coro.h" + +// boiler-plate for tests of codegen +#include "coro1-ret-int-yield-int.h" + +struct coro1 +foo (int arg) noexcept +{ + PRINTF ("foo arg = %d\n", arg); + char arr[arg]; /* { dg-message "sorry, unimplemented: variable length arrays are not yet supported in coroutines" "" { target *-*-* } } */ + if (arg < 4) + co_return -6174; + else + for (int i = 0; i < arg; ++i) arr[i] = (char) i; + co_yield (int) arr[2]; + co_return (int) arr[3]; +} + +int main () +{ + PRINT ("main: create coro1"); + struct coro1 x = foo (10); + PRINT ("main: got coro1 - resuming"); + if (x.handle.done()) + abort(); + x.handle.resume(); + PRINT ("main: after resume"); + int y = x.handle.promise().get_value(); + if ( y == -6174 ) + { + PRINT ("main: saw -6174"); + return 1; + } + else if ( y != 2 ) + abort; + x.handle.resume(); + y = x.handle.promise().get_value(); + if ( y != 3 ) + abort (); + return 0; +} diff --git a/gcc/testsuite/g++.dg/coroutines/pr102454.C b/gcc/testsuite/g++.dg/coroutines/pr102454.C new file mode 100644 index 0000000..41aeda7 --- /dev/null +++ b/gcc/testsuite/g++.dg/coroutines/pr102454.C @@ -0,0 +1,38 @@ +// { dg-additional-options "-fno-exceptions" } + +#include <coroutine> +#include <string> + +template <typename T> +struct looper { + struct promise_type { + auto get_return_object () { return handle_type::from_promise (*this); } + auto initial_suspend () { return suspend_always_prt {}; } + auto final_suspend () noexcept { return suspend_always_prt {}; } + void return_value (T); + void unhandled_exception (); + }; + + using handle_type = std::coroutine_handle<promise_type>; + + looper (handle_type); + + struct suspend_always_prt { + bool await_ready () noexcept; + void await_suspend (handle_type) noexcept; + void await_resume () noexcept; + }; +}; + +template <typename T> +looper<T> +with_ctorable_state (T) +{ + co_return T (); +} + +auto +foo () +{ + return with_ctorable_state<std::string>; +} diff --git a/gcc/testsuite/g++.dg/coroutines/pr99575.C b/gcc/testsuite/g++.dg/coroutines/pr99575.C new file mode 100644 index 0000000..d5f86c1 --- /dev/null +++ b/gcc/testsuite/g++.dg/coroutines/pr99575.C @@ -0,0 +1,35 @@ + +#include <coroutine> + +class Task { + public: + struct promise_type { + Task get_return_object() { return Task{}; } + std::suspend_always initial_suspend() { return {}; } + std::suspend_always final_suspend() noexcept { return {}; } + void unhandled_exception() {} + void return_void() {} + }; + + bool await_ready() const { return false; } + void await_suspend(std::coroutine_handle<void> continuation) {} + void await_resume() {} +}; + +class NonMoveableTask { + public: + NonMoveableTask() = default; + NonMoveableTask(const NonMoveableTask&) = delete; + NonMoveableTask(NonMoveableTask&&) = delete; + + NonMoveableTask& operator=(const NonMoveableTask&) = delete; + NonMoveableTask& operator=(NonMoveableTask&& other) = delete; + + bool await_ready() const { return false; } + void await_suspend(std::coroutine_handle<void>) {} + void await_resume() {} +}; + +Task Foo(NonMoveableTask* task) { co_await* task; } + +int main() {} diff --git a/gcc/testsuite/g++.dg/coroutines/pr99710.C b/gcc/testsuite/g++.dg/coroutines/pr99710.C new file mode 100644 index 0000000..e4f7116 --- /dev/null +++ b/gcc/testsuite/g++.dg/coroutines/pr99710.C @@ -0,0 +1,25 @@ +#include <coroutine> + +struct task { + struct promise_type { + std::suspend_always initial_suspend(); + std::suspend_always final_suspend() noexcept; + task get_return_object(); + void return_void(); + void unhandled_exception(); + }; +}; + +task +my_coro () +{ + try + { } + catch (...) + { + // [expr.await] An await-expression shall appear only in a potentially- + // evaluated expression within the compound-statement of a function-body + // outside of a handler + co_await std::suspend_always{}; // { dg-error "await expressions are not permitted in handlers" } + } +} diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-1.C b/gcc/testsuite/g++.dg/cpp/elifdef-1.C new file mode 100644 index 0000000..f7965e3 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-1.C @@ -0,0 +1,3 @@ +// { dg-do preprocess { target { ! c++23 } } } + +#include "../../gcc.dg/cpp/c11-elifdef-1.c" diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-2.C b/gcc/testsuite/g++.dg/cpp/elifdef-2.C new file mode 100644 index 0000000..6408271 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-2.C @@ -0,0 +1,4 @@ +// P2334R1 +// { dg-do preprocess { target c++23 } } + +#include "../../gcc.dg/cpp/c2x-elifdef-1.c" diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-3.C b/gcc/testsuite/g++.dg/cpp/elifdef-3.C new file mode 100644 index 0000000..d9acce0 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-3.C @@ -0,0 +1,62 @@ +// P2334R1 +// { dg-do preprocess { target c++23 } } + +#define A +#undef B + +#elifdef A // { dg-error "#elifdef without #if" } +#elifdef B // { dg-error "#elifdef without #if" } +#elifndef A // { dg-error "#elifndef without #if" } +#elifndef B // { dg-error "#elifndef without #if" } + +#if 1 // { dg-error "-:began here" } +#else +#elifdef A // { dg-error "#elifdef after #else" } +#endif + +#if 1 // { dg-error "-:began here" } +#else +#elifdef B // { dg-error "#elifdef after #else" } +#endif + +#if 1 // { dg-error "-:began here" } +#else +#elifndef A // { dg-error "#elifndef after #else" } +#endif + +#if 1 // { dg-error "-:began here" } +#else +#elifndef B // { dg-error "#elifndef after #else" } +#endif + +#if 0 +#elifdef A = // { dg-error "extra tokens at end of #elifdef directive" } +#endif + +#if 0 +#elifdef B = // { dg-error "extra tokens at end of #elifdef directive" } +#endif + +#if 0 +#elifndef A = // { dg-error "extra tokens at end of #elifndef directive" } +#endif + +#if 0 +#elifndef B = // { dg-error "extra tokens at end of #elifndef directive" } +#endif + +#if 0 +#elifdef // { dg-error "no macro name given in #elifdef directive" } +#endif + +#if 0 +#elifndef // { dg-error "no macro name given in #elifndef directive" } +#endif + +#if 0 +#elifdef , // { dg-error "macro names must be identifiers" } +#endif + +#if 0 +#elifndef , // { dg-error "macro names must be identifiers" } +#endif diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-4.C b/gcc/testsuite/g++.dg/cpp/elifdef-4.C new file mode 100644 index 0000000..08edf58 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-4.C @@ -0,0 +1,5 @@ +// P2334R1 +// { dg-do preprocess } +// { dg-options "" } + +#include "../../gcc.dg/cpp/c2x-elifdef-1.c" diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-5.C b/gcc/testsuite/g++.dg/cpp/elifdef-5.C new file mode 100644 index 0000000..f7d4007 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-5.C @@ -0,0 +1,63 @@ +// P2334R1 +// { dg-do preprocess } +// { dg-options "" } + +#define A +#undef B + +#elifdef A // { dg-error "#elifdef without #if" } +#elifdef B // { dg-error "#elifdef without #if" } +#elifndef A // { dg-error "#elifndef without #if" } +#elifndef B // { dg-error "#elifndef without #if" } + +#if 1 // { dg-error "-:began here" } +#else +#elifdef A // { dg-error "#elifdef after #else" } +#endif + +#if 1 // { dg-error "-:began here" } +#else +#elifdef B // { dg-error "#elifdef after #else" } +#endif + +#if 1 // { dg-error "-:began here" } +#else +#elifndef A // { dg-error "#elifndef after #else" } +#endif + +#if 1 // { dg-error "-:began here" } +#else +#elifndef B // { dg-error "#elifndef after #else" } +#endif + +#if 0 +#elifdef A = // { dg-warning "extra tokens at end of #elifdef directive" } +#endif + +#if 0 +#elifdef B = // { dg-warning "extra tokens at end of #elifdef directive" } +#endif + +#if 0 +#elifndef A = // { dg-warning "extra tokens at end of #elifndef directive" } +#endif + +#if 0 +#elifndef B = // { dg-warning "extra tokens at end of #elifndef directive" } +#endif + +#if 0 +#elifdef // { dg-error "no macro name given in #elifdef directive" } +#endif + +#if 0 +#elifndef // { dg-error "no macro name given in #elifndef directive" } +#endif + +#if 0 +#elifdef , // { dg-error "macro names must be identifiers" } +#endif + +#if 0 +#elifndef , // { dg-error "macro names must be identifiers" } +#endif diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-6.C b/gcc/testsuite/g++.dg/cpp/elifdef-6.C new file mode 100644 index 0000000..94d2118 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-6.C @@ -0,0 +1,65 @@ +// P2334R1 +// { dg-do preprocess } +// { dg-options "-pedantic" } + +#define A +#undef B + +#if 0 +#elifdef A // { dg-warning "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#define M1 1 +#endif + +#if M1 != 1 +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifdef B +#error "#elifdef B applied" +#endif + +#if 0 +#elifndef A +#error "#elifndef A applied" +#endif + +#if 0 +#elifndef B // { dg-warning "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#define M2 2 +#endif + +#if M2 != 2 +#error "#elifndef B did not apply" +#endif + +#if 0 +#elifdef A // { dg-warning "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#else +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifndef B // { dg-warning "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#else +#error "#elifndef B did not apply" +#endif + +#if 1 +#elifdef A // { dg-warning "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif + +#if 1 +#elifndef B // { dg-warning "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif + +// As with #elif, the syntax of the new directives is relaxed after a + non-skipped group. + +#if 1 +#elifdef x * y // { dg-warning "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif + +#if 1 +#elifndef ! // { dg-warning "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif diff --git a/gcc/testsuite/g++.dg/cpp/elifdef-7.C b/gcc/testsuite/g++.dg/cpp/elifdef-7.C new file mode 100644 index 0000000..bb9b8ef --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp/elifdef-7.C @@ -0,0 +1,65 @@ +// P2334R1 +// { dg-do preprocess } +// { dg-options "-pedantic-errors" } + +#define A +#undef B + +#if 0 +#elifdef A // { dg-error "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#define M1 1 +#endif + +#if M1 != 1 +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifdef B +#error "#elifdef B applied" +#endif + +#if 0 +#elifndef A +#error "#elifndef A applied" +#endif + +#if 0 +#elifndef B // { dg-error "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#define M2 2 +#endif + +#if M2 != 2 +#error "#elifndef B did not apply" +#endif + +#if 0 +#elifdef A // { dg-error "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#else +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifndef B // { dg-error "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#else +#error "#elifndef B did not apply" +#endif + +#if 1 +#elifdef A // { dg-error "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif + +#if 1 +#elifndef B // { dg-error "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif + +// As with #elif, the syntax of the new directives is relaxed after a + non-skipped group. + +#if 1 +#elifdef x * y // { dg-error "#elifdef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif + +#if 1 +#elifndef ! // { dg-error "#elifndef before C\\\+\\\+23 is a GCC extension" "" { target c++20_down } } +#endif diff --git a/gcc/testsuite/g++.dg/cpp0x/constexpr-52830.C b/gcc/testsuite/g++.dg/cpp0x/constexpr-52830.C index eae0d8c..d6057f1 100644 --- a/gcc/testsuite/g++.dg/cpp0x/constexpr-52830.C +++ b/gcc/testsuite/g++.dg/cpp0x/constexpr-52830.C @@ -1,7 +1,6 @@ // PR c++/52830 // { dg-do compile { target c++11 } } // { dg-additional-options "-fchecking" } -// { dg-ice "comptypes" } template<bool b> struct eif { typedef void type; }; template<> struct eif<false> {}; diff --git a/gcc/testsuite/g++.dg/cpp0x/constexpr-array-ptr10.C b/gcc/testsuite/g++.dg/cpp0x/constexpr-array-ptr10.C index 5224bb1..6329523 100644 --- a/gcc/testsuite/g++.dg/cpp0x/constexpr-array-ptr10.C +++ b/gcc/testsuite/g++.dg/cpp0x/constexpr-array-ptr10.C @@ -85,8 +85,11 @@ extern __attribute__ ((weak)) int i; constexpr int *p1 = &i + 1; #pragma GCC diagnostic push +// Suppress warning: ordered comparison of pointer with integer zero. #pragma GCC diagnostic ignored "-Wextra" -// Suppress warning: ordered comparison of pointer with integer zero +// Also suppress -Waddress for comparisons of constant addresses to +// to null. +#pragma GCC diagnostic ignored "-Waddress" constexpr bool b0 = p1; // { dg-error "not a constant expression" } constexpr bool b1 = p1 == 0; // { dg-error "not a constant expression" } diff --git a/gcc/testsuite/g++.dg/cpp0x/variadic-partial2.C b/gcc/testsuite/g++.dg/cpp0x/variadic-partial2.C new file mode 100644 index 0000000..df61f26 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp0x/variadic-partial2.C @@ -0,0 +1,16 @@ +// PR c++/102547 +// { dg-do compile { target c++11 } } + +template<int... Vs> +struct vals { }; + +template<class V, class T> +struct vals_client { }; + +template<int V0, int V1, class T> +struct vals_client<vals<V0, V1>, T> { }; + +template<int V0, int V1> +struct vals_client<vals<V0, V1>, void> { }; + +template struct vals_client<vals<1, 2>, void>; //- "sorry, unimplemented..., ICE" diff --git a/gcc/testsuite/g++.dg/cpp0x/variadic-partial2a.C b/gcc/testsuite/g++.dg/cpp0x/variadic-partial2a.C new file mode 100644 index 0000000..e98bdbb --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp0x/variadic-partial2a.C @@ -0,0 +1,22 @@ +// PR c++/102547 +// { dg-do compile { target c++11 } } +// A version of variadic-partial2.C where partial ordering is performed +// on function templates instead of class templates. + +template<int... Vs> +struct vals { }; + +template<class V, class T> +void f(V, T) { }; + +template<int V0, int V1, class T> +void f(vals<V0, V1>, T) { }; + +template<int V0, int V1> +void f(vals<V0, V1>, char) { }; + +template void f(vals<1, 2>, char); //- "sorry, unimplemented..., ICE" + +int main() { + f(vals<1, 3>{}, 'a'); //- "sorry, unimplemented..., ICE" +} diff --git a/gcc/testsuite/g++.dg/cpp1y/constexpr-label.C b/gcc/testsuite/g++.dg/cpp1y/constexpr-label.C index a2d113c..4994008 100644 --- a/gcc/testsuite/g++.dg/cpp1y/constexpr-label.C +++ b/gcc/testsuite/g++.dg/cpp1y/constexpr-label.C @@ -4,6 +4,6 @@ constexpr int f () { -x: // { dg-error "label definition is not a constant expression" } +x: // { dg-error "label definition in 'constexpr' function only available with" "" { target c++20_down } } return 42; } diff --git a/gcc/testsuite/g++.dg/cpp1y/constexpr-neg1.C b/gcc/testsuite/g++.dg/cpp1y/constexpr-neg1.C index 53f0f1f..8e9d1ea 100644 --- a/gcc/testsuite/g++.dg/cpp1y/constexpr-neg1.C +++ b/gcc/testsuite/g++.dg/cpp1y/constexpr-neg1.C @@ -4,12 +4,12 @@ struct A { A(); }; constexpr int f(int i) { static int j = i; // { dg-error "static" } - thread_local int l = i; // { dg-error "thread_local" } - goto foo; // { dg-error "goto" } + thread_local int l = i; // { dg-error "thread_local" "" { target c++20_down } } + goto foo; // { dg-error "goto" "" { target c++20_down } } foo: asm("foo"); // { dg-error "asm" "" { target c++17_down } } int k; // { dg-error "uninitialized" "" { target c++17_down } } - A a; // { dg-error "non-literal" } + A a; // { dg-error "non-literal" "" { target c++20_down } } return i; } diff --git a/gcc/testsuite/g++.dg/cpp1z/class-deduction12.C b/gcc/testsuite/g++.dg/cpp1z/class-deduction12.C index a31cc15..f0d7ea0 100644 --- a/gcc/testsuite/g++.dg/cpp1z/class-deduction12.C +++ b/gcc/testsuite/g++.dg/cpp1z/class-deduction12.C @@ -15,3 +15,9 @@ A a(&i,2,B<42>()); template <class,class> class same; template <class T> class same<T,T> {}; same<decltype(a), A<int*>> s; + +#if __cpp_deduction_guides >= 201907 +template <class T> using C = A<const T*>; + +same<decltype(C(&i, 2, B<42>())), A<const int*>> t; +#endif diff --git a/gcc/testsuite/g++.dg/cpp1z/class-deduction99.C b/gcc/testsuite/g++.dg/cpp1z/class-deduction99.C new file mode 100644 index 0000000..6daa4b7 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp1z/class-deduction99.C @@ -0,0 +1,35 @@ +// PR c++/102479 +// { dg-do compile { target c++17 } } + +template<class T> struct A; + +template<class T> +struct tuple { + tuple(T); + + template<template<class> class Tmpl> + tuple(Tmpl<T>); + + template<template<class> class Tmpl, typename A<Tmpl<char>>::type = 0> + tuple(Tmpl<T>); + + template<template<class> class Tmpl, typename A<Tmpl<long>>::type = 0> + tuple(Tmpl<T>); +}; + +template<class T> struct B { }; + +using ty1 = tuple<int>; +using ty1 = decltype(tuple(0)); +using ty1 = decltype(tuple(B<int>{})); + +#if __cpp_deduction_guides >= 201907 +template<class T> using const_tuple = tuple<const T>; + +using ty2 = const_tuple<int>; +using ty2 = decltype(const_tuple(0)); +using ty2 = decltype(const_tuple(B<const int>{})); + +using ty3 = const_tuple<B<int>>; +using ty3 = decltype(const_tuple(B<int>{})); +#endif diff --git a/gcc/testsuite/g++.dg/cpp1z/nontype4.C b/gcc/testsuite/g++.dg/cpp1z/nontype4.C new file mode 100644 index 0000000..ff476dc --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp1z/nontype4.C @@ -0,0 +1,14 @@ +// PR c++/98930 +// { dg-do compile { target c++17 } } + +template<int*> +struct A { A() { } }; + +template<class T> +void impl() { + static int i; + static A<&i> a; +} + +template void impl<int>(); +template void impl<char>(); diff --git a/gcc/testsuite/g++.dg/cpp1z/nontype4a.C b/gcc/testsuite/g++.dg/cpp1z/nontype4a.C new file mode 100644 index 0000000..5b74292 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp1z/nontype4a.C @@ -0,0 +1,14 @@ +// PR c++/98930 +// { dg-do compile { target c++17 } } + +template<int*> +struct A { }; + +template<class T> +auto impl() { + static int i; + return A<&i>(); +} + +using type = decltype(impl<int>()); +using type = decltype(impl<char>()); // { dg-error "conflicting declaration" } diff --git a/gcc/testsuite/g++.dg/cpp23/charlit-encoding1.C b/gcc/testsuite/g++.dg/cpp23/charlit-encoding1.C new file mode 100644 index 0000000..736f022 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/charlit-encoding1.C @@ -0,0 +1,33 @@ +// PR c++/102615 - P2316R2 - Consistent character literal encoding +// { dg-do run } + +extern "C" void abort (); + +int +main () +{ +#if ' ' == 0x20 + if (' ' != 0x20) + abort (); +#elif ' ' == 0x40 + if (' ' != 0x40) + abort (); +#else + if (' ' == 0x20 || ' ' == 0x40) + abort (); +#endif +#if 'a' == 0x61 + if ('a' != 0x61) + abort (); +#elif 'a' == 0x81 + if ('a' != 0x81) + abort (); +#elif 'a' == -0x7F + if ('a' != -0x7F) + abort (); +#else + if ('a' == 0x61 || 'a' == 0x81 || 'a' == -0x7F) + abort (); +#endif + return 0; +} diff --git a/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit1.C b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit1.C new file mode 100644 index 0000000..c80ea38 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit1.C @@ -0,0 +1,68 @@ +// P2242R3 +// { dg-do compile { target c++14 } } + +constexpr int +foo () +{ +lab: // { dg-error "label definition in 'constexpr' function only available with" "" { target c++20_down } } + return 1; +} + +constexpr int +bar (int x) +{ + if (x) + goto lab; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } + return 1; +lab: + return 0; +} + +constexpr int +baz (int x) +{ + if (!x) + return 1; + static int a; // { dg-error "'a' declared 'static' in 'constexpr' function only available with" "" { target c++20_down } } + return ++a; // { dg-error "uninitialized variable 'a' in 'constexpr' function" "" { target c++17_down } .-1 } +} + +constexpr int +qux (int x) +{ + if (!x) + return 1; + thread_local int a; // { dg-error "'a' declared 'thread_local' in 'constexpr' function only available with" "" { target c++20_down } } + return ++a; // { dg-error "uninitialized variable 'a' in 'constexpr' function" "" { target c++17_down } .-1 } +} + +constexpr int +garply (int x) +{ + if (!x) + return 1; + extern thread_local int a; // { dg-error "'a' declared 'thread_local' in 'constexpr' function only available with" "" { target c++20_down } } + return ++a; +} + +struct S { S (); ~S (); int s; }; // { dg-message "'S' is not literal because:" "" { target c++20_down } } + // { dg-message "'S' has a non-trivial destructor" "" { target c++17_down } .-1 } + // { dg-message "'S' does not have 'constexpr' destructor" "" { target { c++20_only } } .-2 } + +constexpr int +corge (int x) +{ + if (!x) + return 1; + S s; // { dg-error "variable 's' of non-literal type 'S' in 'constexpr' function only available with" "" { target c++20_down } } + return 0; +} + +#if __cpp_constexpr >= 202110L +static_assert (foo ()); +static_assert (bar (0)); +static_assert (baz (0)); +static_assert (qux (0)); +static_assert (garply (0)); +static_assert (corge (0)); +#endif diff --git a/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit2.C b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit2.C new file mode 100644 index 0000000..0f7b229 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit2.C @@ -0,0 +1,54 @@ +// P2242R3 +// { dg-do compile } +// { dg-options "-std=c++2b" } + +constexpr int +foo () +{ +lab: + return 1; +} + +constexpr int +bar (int x) +{ + if (x) + goto lab; // { dg-error "'goto' is not a constant expression" } + return 1; +lab: + return 0; +} + +constexpr int +baz (int x) +{ + if (!x) + return 1; + static int a; // { dg-error "control passes through declaration of 'a' with static storage duration" } + return ++a; +} + +constexpr int +qux (int x) +{ + if (!x) + return 1; + thread_local int a; // { dg-error "control passes through declaration of 'a' with thread storage duration" } + return ++a; +} + +struct S { S (); ~S (); int s; }; // { dg-message "'S::S\\\(\\\)' declared here" } + +constexpr int +corge (int x) +{ + if (!x) + return 1; + S s; // { dg-error "call to non-'constexpr' function 'S::S\\\(\\\)'" } + return 0; +} + +constexpr int a = bar (1); // { dg-message "in 'constexpr' expansion of" } +constexpr int b = baz (1); // { dg-message "in 'constexpr' expansion of" } +constexpr int c = qux (1); // { dg-message "in 'constexpr' expansion of" } +constexpr int d = corge (1); // { dg-message "in 'constexpr' expansion of" } diff --git a/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit3.C b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit3.C new file mode 100644 index 0000000..3b5585d --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit3.C @@ -0,0 +1,10 @@ +// P2242R3 +// { dg-do compile { target c++14 } } + +constexpr int +foo () +{ + goto lab; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } +lab: // { dg-error "'goto' is not a constant expression" "" { target { c++23 } } .-1 } + return 1; +} diff --git a/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit4.C b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit4.C new file mode 100644 index 0000000..e4ed2e3 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit4.C @@ -0,0 +1,57 @@ +// { dg-do compile } +// { dg-options "-std=c++2b" } + +int qux (); + +constexpr int +foo (int x) +{ + switch (x) + { + static int v = qux (); + case 12: + return 1; + } + return 0; +} + +constexpr int +bar (int x) +{ + switch (x) + { + thread_local int v = qux (); + case 12: + return 1; + } + return 0; +} + +constexpr int +baz (int x) +{ + switch (x) + { + static const int v = qux (); // { dg-message "'v' was not initialized with a constant expression" } + case 12: + return v; + } + return 0; +} + +constexpr int +corge (int x) +{ + switch (x) + { + const thread_local int v = qux (); // { dg-message "'v' was not initialized with a constant expression" } + case 12: + return v; + } + return 0; +} + +constexpr int a = foo (12); +constexpr int b = bar (12); +constexpr int c = baz (12); // { dg-error "the value of 'v' is not usable in a constant expression" } +constexpr int d = corge (12); // { dg-error "the value of 'v' is not usable in a constant expression" } diff --git a/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit5.C b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit5.C new file mode 100644 index 0000000..838f282 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit5.C @@ -0,0 +1,57 @@ +// { dg-do compile } +// { dg-options "-std=c++2b" } + +int qux (); + +constexpr int +foo (int x) +{ + switch (x) + { + static const int v = 6; + case 12: + return v; + } + return 0; +} + +constexpr int +bar (int x) +{ + switch (x) + { + thread_local const int v = 7; + case 12: + return 7; + } + return 0; +} + +constexpr int +baz (int x) +{ + switch (x) + { + static int v = 6; // { dg-message "int v' is not const" } + case 12: + return v; + } + return 0; +} + +constexpr int +corge (int x) +{ + switch (x) + { + thread_local int v = 6; // { dg-message "int v' is not const" } + case 12: + return v; + } + return 0; +} + +constexpr int a = foo (12); +constexpr int b = bar (12); +constexpr int c = baz (12); // { dg-error "the value of 'v' is not usable in a constant expression" } +constexpr int d = corge (12); // { dg-error "the value of 'v' is not usable in a constant expression" } diff --git a/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit6.C b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit6.C new file mode 100644 index 0000000..11cb518 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp23/constexpr-nonlit6.C @@ -0,0 +1,25 @@ +// P2242R3 +// { dg-do compile } +// { dg-options "-std=c++2b" } + +constexpr int +foo () +{ + goto lab; // { dg-error "'goto' is not a constant expression" } +lab: + return 1; +} + +constexpr int +bar () +{ + static int a; // { dg-error "'a' declared 'static' in 'constexpr' context" } + return ++a; +} + +constexpr int +baz (int x) +{ + thread_local int a; // { dg-error "'a' declared 'thread_local' in 'constexpr' context" } + return ++a; +} diff --git a/gcc/testsuite/g++.dg/cpp23/feat-cxx2b.C b/gcc/testsuite/g++.dg/cpp23/feat-cxx2b.C index 7070f59..8bb3bf1 100644 --- a/gcc/testsuite/g++.dg/cpp23/feat-cxx2b.C +++ b/gcc/testsuite/g++.dg/cpp23/feat-cxx2b.C @@ -134,8 +134,8 @@ #ifndef __cpp_constexpr # error "__cpp_constexpr" -#elif __cpp_constexpr != 201907 -# error "__cpp_constexpr != 201907" +#elif __cpp_constexpr != 202110 +# error "__cpp_constexpr != 202110" #endif #ifndef __cpp_decltype_auto diff --git a/gcc/testsuite/g++.dg/cpp2a/concepts-nondep2.C b/gcc/testsuite/g++.dg/cpp2a/concepts-nondep2.C new file mode 100644 index 0000000..e9867f8 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/concepts-nondep2.C @@ -0,0 +1,21 @@ +// PR c++/102412 +// { dg-do link { target c++20 } } + +template<class T, class U> concept C = __is_same(T, U); + +template<class T, bool = C<int, T>> void f(); +template<> void f<int, true>() { } +template<> void f<char, false>() { } + +template<bool = C<int, char>> void g(); +template<> void g<false>() { } + +template<bool = C<int, int>> void h(); +template<> void h<true>() { } + +int main() { + f<int>(); + f<char>(); + g(); + h(); +} diff --git a/gcc/testsuite/g++.dg/cpp2a/concepts-nondep3.C b/gcc/testsuite/g++.dg/cpp2a/concepts-nondep3.C new file mode 100644 index 0000000..4aae287 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/concepts-nondep3.C @@ -0,0 +1,9 @@ +// DR 2446 +// { dg-do compile { target c++20 } } + +template <typename T> concept C = true; +template <typename T> struct A; +template <> struct A<bool> { using type = bool; }; + +template <typename T> +void f(A<decltype(C<T>)>::type); // OK, no 'typename' needed diff --git a/gcc/testsuite/g++.dg/cpp2a/concepts-ttp3.C b/gcc/testsuite/g++.dg/cpp2a/concepts-ttp3.C new file mode 100644 index 0000000..11b6293 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/concepts-ttp3.C @@ -0,0 +1,11 @@ +// PR c++/99909 +// { dg-do compile { target c++20 } } + +template<class T> constexpr bool always_true = true; +template<class T> concept C = always_true<T>; + +template<C auto> struct S; + +template<template<auto> class TT> void f() { } + +template void f<S>(); diff --git a/gcc/testsuite/g++.dg/cpp2a/concepts-ttp4.C b/gcc/testsuite/g++.dg/cpp2a/concepts-ttp4.C new file mode 100644 index 0000000..cf3e71e --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/concepts-ttp4.C @@ -0,0 +1,9 @@ +// PR c++/99904 +// { dg-do compile { target c++20 } } + +template<class... Ts> concept C = (Ts::value && ...); +template<class... Ts> requires C<Ts...> struct A; +template<class T> requires true struct B; +template<template<class... Ts> requires C<Ts...> class TT> struct S; +using ty1 = S<A>; +using ty2 = S<B>; // { dg-error "constraint" } TT's constraints don't subsume B's diff --git a/gcc/testsuite/g++.dg/cpp2a/consteval3.C b/gcc/testsuite/g++.dg/cpp2a/consteval3.C index 9fb1f1a..8f93164 100644 --- a/gcc/testsuite/g++.dg/cpp2a/consteval3.C +++ b/gcc/testsuite/g++.dg/cpp2a/consteval3.C @@ -1,5 +1,4 @@ -// { dg-do compile } -// { dg-options "-std=c++2a" } +// { dg-do compile { target c++20 } } struct S { S () : a (0), b (1) {} int a, b; }; int f1 (); // { dg-message "previous declaration 'int f1\\(\\)'" } @@ -57,7 +56,8 @@ template consteval float f12 (float x); // { dg-error "explicit instantiation sh consteval int f13 (int x) { - static int a = 5; // { dg-error "'a' declared 'static' in 'consteval' function" } - thread_local int b = 6; // { dg-error "'b' declared 'thread_local' in 'consteval' function" } + static int a = 5; // { dg-error "'a' declared 'static' in 'consteval' function only available with" "" { target c++20_only } } + // { dg-error "'a' declared 'static' in 'constexpr' context" "" { target c++23 } .-1 } + thread_local int b = 6; // { dg-error "'b' declared 'thread_local' in 'consteval' function only available with" "" { target c++20_only } } return x; } diff --git a/gcc/testsuite/g++.dg/cpp2a/constexpr-dtor3.C b/gcc/testsuite/g++.dg/cpp2a/constexpr-dtor3.C index 7700bb7..69fe9e2 100644 --- a/gcc/testsuite/g++.dg/cpp2a/constexpr-dtor3.C +++ b/gcc/testsuite/g++.dg/cpp2a/constexpr-dtor3.C @@ -180,6 +180,6 @@ f7 () constexpr int f8 () { - T t4; // { dg-error "variable 't4' of non-literal type 'T' in 'constexpr' function" } + T t4; // { dg-error "variable 't4' of non-literal type 'T' in 'constexpr' function only available with" "" { target c++20_down } } return 0; } diff --git a/gcc/testsuite/g++.dg/cpp2a/constexpr-try5.C b/gcc/testsuite/g++.dg/cpp2a/constexpr-try5.C index 3b51bf7..ed5e40d 100644 --- a/gcc/testsuite/g++.dg/cpp2a/constexpr-try5.C +++ b/gcc/testsuite/g++.dg/cpp2a/constexpr-try5.C @@ -5,14 +5,15 @@ constexpr int foo () try { // { dg-warning "function-try-block body of 'constexpr' function only available with" "" { target c++17_down } } int a; // { dg-error "uninitialized variable 'a' in 'constexpr' function" "" { target c++17_down } } - static double b = 1.0;// { dg-error "'b' declared 'static' in 'constexpr' function" } - goto l; // { dg-error "'goto' in 'constexpr' function" } + static double b = 1.0;// { dg-error "'b' declared 'static' in 'constexpr' function only available with" "" { target c++20_down } } + // { dg-error "'b' declared 'static' in 'constexpr' context" "" { target c++23 } .-1 } + goto l; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } l:; return 0; } catch (...) { long int c; // { dg-error "uninitialized variable 'c' in 'constexpr' function" "" { target c++17_down } } - static float d = 2.0f;// { dg-error "'d' declared 'static' in 'constexpr' function" } - goto l2; // { dg-error "'goto' in 'constexpr' function" } + static float d = 2.0f;// { dg-error "'d' declared 'static' in 'constexpr' function only available with" "" { target c++20_down } } + goto l2; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } l2:; return -1; } @@ -20,20 +21,21 @@ try { // { dg-warning "function-try-block body of 'constexpr' function only av constexpr int bar () { int a; // { dg-error "uninitialized variable 'a' in 'constexpr' function" "" { target c++17_down } } - static long double b = 3.0;// { dg-error "'b' declared 'static' in 'constexpr' function" } - goto l; // { dg-error "'goto' in 'constexpr' function" } + static long double b = 3.0;// { dg-error "'b' declared 'static' in 'constexpr' function only available with" "" { target c++20_down } } + // { dg-error "'b' declared 'static' in 'constexpr' context" "" { target c++23 } .-1 } + goto l; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } l:; try { // { dg-warning "'try' in 'constexpr' function only available with" "" { target c++17_down } } short c; // { dg-error "uninitialized variable 'c' in 'constexpr' function" "" { target c++17_down } } - static float d; // { dg-error "'d' declared 'static' in 'constexpr' function" } + static float d; // { dg-error "'d' declared 'static' in 'constexpr' function only available with" "" { target c++20_down } } // { dg-error "uninitialized variable 'd' in 'constexpr' function" "" { target c++17_down } .-1 } - goto l2; // { dg-error "'goto' in 'constexpr' function" } + goto l2; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } l2:; return 0; } catch (int) { char e; // { dg-error "uninitialized variable 'e' in 'constexpr' function" "" { target c++17_down } } - static int f = 5; // { dg-error "'f' declared 'static' in 'constexpr' function" } - goto l3; // { dg-error "'goto' in 'constexpr' function" } + static int f = 5; // { dg-error "'f' declared 'static' in 'constexpr' function only available with" "" { target c++20_down } } + goto l3; // { dg-error "'goto' in 'constexpr' function only available with" "" { target c++20_down } } l3:; return 1; } diff --git a/gcc/testsuite/g++.dg/cpp2a/nontype-float2.C b/gcc/testsuite/g++.dg/cpp2a/nontype-float2.C new file mode 100644 index 0000000..40b42b9 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/nontype-float2.C @@ -0,0 +1,14 @@ +// PR c++/98216 +// PR c++/91292 +// { dg-do compile { target c++20 } } + +template<auto> void f() { } + +template void f<-1.0f>(); +template void f<-2.0f>(); + +template void f<-1.0>(); +template void f<-2.0>(); + +template void f<-1.0L>(); +template void f<-2.0L>(); diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-eq11.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-eq11.C new file mode 100644 index 0000000..b71ed4f --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-eq11.C @@ -0,0 +1,43 @@ +// PR c++/102490 +// { dg-do run { target c++20 } } + +struct A +{ + unsigned char a : 1; + unsigned char b : 1; + constexpr bool operator== (const A &) const = default; +}; + +struct B +{ + unsigned char a : 8; + int : 0; + unsigned char b : 7; + constexpr bool operator== (const B &) const = default; +}; + +struct C +{ + unsigned char a : 3; + unsigned char b : 1; + constexpr bool operator== (const C &) const = default; +}; + +void +foo (C &x, int y) +{ + x.b = y; +} + +int +main () +{ + A a{}, b{}; + B c{}, d{}; + C e{}, f{}; + a.b = 1; + d.b = 1; + foo (e, 0); + foo (f, 1); + return a == b || c == d || e == f; +} diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-eq12.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-eq12.C new file mode 100644 index 0000000..8346e7e --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-eq12.C @@ -0,0 +1,5 @@ +// PR c++/102490 +// { dg-do run { target c++20 } } +// { dg-options "-O2" } + +#include "spaceship-eq11.C" diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-eq13.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-eq13.C new file mode 100644 index 0000000..cb521ed --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-eq13.C @@ -0,0 +1,22 @@ +// PR c++/98712 +// { dg-do run { target c++20 } } + +struct S +{ + int s = 0; + S(int s) : s(s) {} + bool operator==(const S&) const = default; +}; + +struct T : S +{ + T(int s) : S(s) {} + constexpr bool operator==(const T&) const = default; +}; + +int +main() +{ + if (T(0) == T(1)) + __builtin_abort (); +} diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-synth12.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth12.C new file mode 100644 index 0000000..85b4784 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth12.C @@ -0,0 +1,24 @@ +// PR c++/98712 +// { dg-do run { target c++20 } } + +#include <compare> + +struct S +{ + int s = 0; + S(int s) : s(s) {} + auto operator<=>(const S&) const = default; +}; + +struct T : S +{ + T(int s) : S(s) {} + constexpr auto operator<=>(const T&) const = default; +}; + +int +main() +{ + if (T(0) >= T(1)) + __builtin_abort (); +} diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-synth13.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth13.C new file mode 100644 index 0000000..ab479d7 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth13.C @@ -0,0 +1,29 @@ +// { dg-do compile { target c++20 } } + +#include <compare> +#include <type_traits> + +struct E; +struct D { + auto operator<=>(const D&) const = default; + float f; +}; +struct E : D { + auto operator<=>(const E&) const = default; + int i; +}; +extern E e1, e2; +auto a = e1 <=> e2; +static_assert (std::is_same_v <decltype (a), std::partial_ordering>); +struct G; +struct H { + constexpr auto operator<=>(const H&) const = default; + float f; +}; +struct G : H { + constexpr auto operator<=>(const G&) const = default; + int i; +}; +extern G g1, g2; +auto c = g1 <=> g2; +static_assert (std::is_same_v <decltype (c), std::partial_ordering>); diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-synth14.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth14.C new file mode 100644 index 0000000..369d3a3 --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth14.C @@ -0,0 +1,26 @@ +// Test virtual <=>. +// { dg-do run { target c++20 } } + +#include <compare> + +struct E; +struct D { + std::partial_ordering operator<=>(const D&) const = default; + virtual std::partial_ordering operator<=>(const E&) const = 0; + float f; + D(float f): f(f) {} +}; +struct E : D { + std::partial_ordering operator<=>(const E&) const override = default; + int i; + E(float f, int i): D(f), i(i) {} +}; + +int main() +{ + E e1{0.0,42}; + E e2{1.0,24}; + auto a = e1 <=> e2; + if (!is_lt (e1 <=> e2)) + __builtin_abort(); +} diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8.C index bd1c4d2..8861765 100644 --- a/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8.C +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8.C @@ -1,7 +1,18 @@ // PR c++/94907 // { dg-do compile { target c++20 } } -namespace std { struct strong_ordering { }; } +namespace std { struct strong_ordering { + int _v; + constexpr strong_ordering (int v) :_v(v) {} + constexpr operator int (void) const { return _v; } + static const strong_ordering less; + static const strong_ordering equal; + static const strong_ordering greater; +}; +constexpr strong_ordering strong_ordering::less = -1; +constexpr strong_ordering strong_ordering::equal = 0; +constexpr strong_ordering strong_ordering::greater = 1; +} struct E; struct D { diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8a.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8a.C new file mode 100644 index 0000000..42a32da --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-synth8a.C @@ -0,0 +1,25 @@ +// PR c++/94907 +// { dg-do compile { target c++20 } } + +namespace std { struct strong_ordering { + int _v; + constexpr strong_ordering (int v) :_v(v) {} + constexpr operator int (void) const { return _v; } + static const strong_ordering less; + static const strong_ordering equal; + static const strong_ordering greater; +}; +constexpr strong_ordering strong_ordering::less = -1; +constexpr strong_ordering strong_ordering::equal = 0; +constexpr strong_ordering strong_ordering::greater = 1; +} + +struct E; +struct D { + virtual std::strong_ordering operator<=>(const struct E&) const = 0; +}; +struct E : D { // { dg-error "no match" } + std::strong_ordering operator<=>(const E&) const override = default; // { dg-message "default" } +}; + +auto x = E() <=> E(); // { dg-error "deleted" } diff --git a/gcc/testsuite/g++.dg/cpp2a/spaceship-virtual1.C b/gcc/testsuite/g++.dg/cpp2a/spaceship-virtual1.C new file mode 100644 index 0000000..8067d3c --- /dev/null +++ b/gcc/testsuite/g++.dg/cpp2a/spaceship-virtual1.C @@ -0,0 +1,20 @@ +// PR c++/95567 +// { dg-do run { target c++20 } } + +struct B { + B(int i) : i(i) {} + virtual ~B() = default; + + bool operator==(B const&) const = default; + int i; +}; + +struct D : B { + D(int i, int j) : B(i), j(j) {} + int j; +}; + +int main() { + if (B(2) != D(2, 3)) + __builtin_abort(); +} diff --git a/gcc/testsuite/g++.dg/diagnostic/constexpr1.C b/gcc/testsuite/g++.dg/diagnostic/constexpr1.C index f029e86..f2bcec6 100644 --- a/gcc/testsuite/g++.dg/diagnostic/constexpr1.C +++ b/gcc/testsuite/g++.dg/diagnostic/constexpr1.C @@ -1,5 +1,7 @@ // { dg-do compile { target c++11 } } -constexpr int foo() { thread_local int i __attribute__((unused)) {}; return 1; } // { dg-error "40:.i. declared .thread_local." } +constexpr int foo() { thread_local int i __attribute__((unused)) {}; return 1; } // { dg-error "40:.i. declared .thread_local." "" { target c++20_down } } +// { dg-error "40:.i. declared .thread_local. in .constexpr. context" "" { target c++23 } .-1 } -constexpr int bar() { static int i __attribute__((unused)) {}; return 1; } // { dg-error "34:.i. declared .static." } +constexpr int bar() { static int i __attribute__((unused)) {}; return 1; } // { dg-error "34:.i. declared .static." "" { target c++20_down } } +// { dg-error "34:.i. declared .static. in .constexpr. context" "" { target c++23 } .-1 } diff --git a/gcc/testsuite/g++.dg/ext/is_constructible6.C b/gcc/testsuite/g++.dg/ext/is_constructible6.C new file mode 100644 index 0000000..7fce153 --- /dev/null +++ b/gcc/testsuite/g++.dg/ext/is_constructible6.C @@ -0,0 +1,10 @@ +// Verify we respect the order of trailing arguments passed to +// __is_constructible. + +struct A { }; +struct B { }; +struct C { C(A, B); }; + +extern int n[true]; +extern int n[ __is_constructible(C, A, B)]; +extern int n[!__is_constructible(C, B, A)]; diff --git a/gcc/testsuite/g++.dg/ext/is_trivially_constructible7.C b/gcc/testsuite/g++.dg/ext/is_trivially_constructible7.C new file mode 100644 index 0000000..f6fbf8f --- /dev/null +++ b/gcc/testsuite/g++.dg/ext/is_trivially_constructible7.C @@ -0,0 +1,17 @@ +// PR c++/102535 +// Verify __is_trivially_constructible works with multi-arg paren init of +// aggrs. + +struct A { int x; }; +struct B { float y; }; +struct C { char z; }; +struct D { A a; B b; C c; }; + +extern int n[1 + __is_trivially_constructible(D, A)]; +extern int n[1 + __is_trivially_constructible(D, A, B)]; +extern int n[1 + __is_trivially_constructible(D, A, B, C)]; +#if __cpp_aggregate_paren_init +extern int n[1 + true]; +#else +extern int n[1 + false]; +#endif diff --git a/gcc/testsuite/g++.dg/gomp/allocate-4.C b/gcc/testsuite/g++.dg/gomp/allocate-4.C new file mode 100644 index 0000000..dd5e5f0 --- /dev/null +++ b/gcc/testsuite/g++.dg/gomp/allocate-4.C @@ -0,0 +1,108 @@ +// { dg-do compile } +// { dg-additional-options "-std=c++11" } + +typedef enum omp_allocator_handle_t +#if __cplusplus >= 201103L +: __UINTPTR_TYPE__ +#endif +{ + omp_null_allocator = 0, + omp_default_mem_alloc = 1, + omp_large_cap_mem_alloc = 2, + omp_const_mem_alloc = 3, + omp_high_bw_mem_alloc = 4, + omp_low_lat_mem_alloc = 5, + omp_cgroup_mem_alloc = 6, + omp_pteam_mem_alloc = 7, + omp_thread_mem_alloc = 8, + __omp_allocator_handle_t_max__ = __UINTPTR_MAX__ +} omp_allocator_handle_t; + +namespace N1 +{ + using ::omp_allocator_handle_t; + void + foo (const omp_allocator_handle_t h) + { + int x = 0; + #pragma omp parallel allocate (allocator (h): x) private (x) + x = 1; + } +} + +namespace N2 +{ + typedef enum omp_allocator_handle_t { my = 0 } omp_allocator_handle_t; + void + foo (omp_allocator_handle_t h) + { + int x = 0; + #pragma omp parallel allocate (allocator (h): x) private (x) // { dg-error "'allocate' clause allocator expression has type 'N2::omp_allocator_handle_t' rather than 'omp_allocator_handle_t'" } + x = 1; + } +} + +struct S +{ + void foo () + { + #pragma omp parallel allocate (allocator(omp_default_mem_alloc):s) firstprivate (s) + s++; + } + int s; +}; + +template <typename T> +struct U +{ + int foo () + { + #pragma omp parallel allocate (allocator(omp_default_mem_alloc):s) firstprivate (s) + s++; + return 1; + } + T s; +}; + +template <typename T, int N> +int foo (T t) +{ + int x = 0; + #pragma omp parallel firstprivate (x) allocate (allocator(t), align (N): x) + x = 1; + return 0; +} + +template <typename T> +int bar (T t) +{ + int x = 0; + #pragma omp parallel firstprivate (x) allocate (allocator(t): x) // { dg-error "'allocate' clause allocator expression has type 'int' rather than 'omp_allocator_handle_t'" } + x = 1; + return 0; +} + +template <typename T, int N> +int baz (T t) +{ + int x = 0; + #pragma omp parallel firstprivate (x) allocate (allocator(t), align (N): x) // { dg-error "'allocate' clause 'align' modifier argument needs to be positive constant power of two integer expression" } + x = 1; + return 0; +} + +template <typename T> +int qux () +{ + int x = 0; + #pragma omp parallel firstprivate (x) allocate (align ((T) 16): x) // { dg-error "'allocate' clause 'align' modifier argument needs to be positive constant power of two integer expression" } + x = 1; + return 0; +} + +omp_allocator_handle_t h; +int a = foo<omp_allocator_handle_t, 16> (h); +int b = bar (0); +int c = U<int> ().foo (); +int d = baz<omp_allocator_handle_t, 13> (h); +int e = qux<long double> (); diff --git a/gcc/testsuite/g++.dg/gomp/attrs-14.C b/gcc/testsuite/g++.dg/gomp/attrs-14.C new file mode 100644 index 0000000..959f776 --- /dev/null +++ b/gcc/testsuite/g++.dg/gomp/attrs-14.C @@ -0,0 +1,4 @@ +// PR c++/102413 +// { dg-do compile { target c++11 } } + +[[omp::directive(error]]; // { dg-error "expected|declare" } diff --git a/gcc/testsuite/g++.dg/gomp/simd-3.C b/gcc/testsuite/g++.dg/gomp/simd-3.C new file mode 100644 index 0000000..db66c08 --- /dev/null +++ b/gcc/testsuite/g++.dg/gomp/simd-3.C @@ -0,0 +1,16 @@ +// PR middle-end/102492 +// { dg-do compile } + +struct S { S (int); }; +void bar (S &); + +void +foo () +{ + #pragma omp simd + for (int i = 0; i < 64; i++) + { + S s = 26; + bar (s); + } +} diff --git a/gcc/testsuite/g++.dg/parse/pr101783.C b/gcc/testsuite/g++.dg/parse/pr101783.C new file mode 100644 index 0000000..4e0a435 --- /dev/null +++ b/gcc/testsuite/g++.dg/parse/pr101783.C @@ -0,0 +1,5 @@ +template<class T> struct A{ + typedef T& Type; +}; +template<class T> void f(const typename A<T>::Type){} +template <> void f<int>(const typename A<int>::Type){} diff --git a/gcc/testsuite/g++.dg/pr102359_1.C b/gcc/testsuite/g++.dg/pr102359_1.C new file mode 100644 index 0000000..da643cd --- /dev/null +++ b/gcc/testsuite/g++.dg/pr102359_1.C @@ -0,0 +1,13 @@ +/* PR middle-end/102359 ICE gimplification failed since + r12-3433-ga25e0b5e6ac8a77a. */ +/* { dg-do compile } */ +/* { dg-options "-ftrivial-auto-var-init=zero" } */ +/* { dg-require-effective-target c++17 } */ + +struct A { + double a = 111; + auto foo() { + return [*this] { return a; }; + } +}; +int X = A{}.foo()(); diff --git a/gcc/testsuite/g++.dg/pr102359_2.C b/gcc/testsuite/g++.dg/pr102359_2.C new file mode 100644 index 0000000..d026d72 --- /dev/null +++ b/gcc/testsuite/g++.dg/pr102359_2.C @@ -0,0 +1,13 @@ +/* PR middle-end/102359 ICE gimplification failed since + r12-3433-ga25e0b5e6ac8a77a. */ +/* { dg-do run} */ +/* { dg-options "-ftrivial-auto-var-init=zero" } */ +/* { dg-require-effective-target c++17 } */ + +int main() +{ + int i = 42; + auto l = [=]() mutable { return i; }; + if (l() != i) + __builtin_abort (); +} diff --git a/gcc/testsuite/g++.dg/spellcheck-pr77565.C b/gcc/testsuite/g++.dg/spellcheck-pr77565.C new file mode 100644 index 0000000..2257f7b --- /dev/null +++ b/gcc/testsuite/g++.dg/spellcheck-pr77565.C @@ -0,0 +1,12 @@ +/* { dg-do compile } */ + +typdef int my_int; // { dg-error "1: 'typdef' does not name a type; did you mean 'typedef'\\?" } +inlien int i_fn(); // { dg-error "1: 'inlien' does not name a type; did you mean 'inline'\\?" } +coonst int ci = 1; // { dg-error "1: 'coonst' does not name a type; did you mean 'const'\\?" } +voltil int vi = 2; // { dg-error "1: 'voltil' does not name a type; did you mean 'volatile'\\?" } + +class my_class { + explict my_class(int); // { dg-error "3: 'explict' does not name a type; did you mean 'explicit'\\?" } + friends double f_fn(); // { dg-error "3: 'friends' does not name a type; did you mean 'friend'\\?" } + virtial double v_fn(); // { dg-error "3: 'virtial' does not name a type; did you mean 'virtual'\\?" } +}; diff --git a/gcc/testsuite/g++.dg/template/canon-type-15.C b/gcc/testsuite/g++.dg/template/canon-type-15.C new file mode 100644 index 0000000..b001b5c --- /dev/null +++ b/gcc/testsuite/g++.dg/template/canon-type-15.C @@ -0,0 +1,7 @@ +// { dg-do compile { target c++11 } } +template<unsigned u> struct size_c{ static constexpr unsigned value = u; }; +namespace g { +template<class T> auto return_size(T t) -> size_c<sizeof(t)>; +template<class T> auto return_size(T t) -> size_c<sizeof(t)>; +} +static_assert(decltype(g::return_size('a'))::value == 1u, ""); diff --git a/gcc/testsuite/g++.dg/template/canon-type-16.C b/gcc/testsuite/g++.dg/template/canon-type-16.C new file mode 100644 index 0000000..99361cb --- /dev/null +++ b/gcc/testsuite/g++.dg/template/canon-type-16.C @@ -0,0 +1,6 @@ +// { dg-do compile { target c++11 } } +template<bool u> struct bool_c{ static constexpr bool value = u; }; +template<class T> auto noexcepty(T t) -> bool_c<noexcept(t())>; +template<class T> auto noexcepty(T t) -> bool_c<noexcept(t())>; +struct foo { void operator()() noexcept; }; +static_assert(decltype(noexcepty(foo{}))::value, ""); diff --git a/gcc/testsuite/g++.dg/template/canon-type-17.C b/gcc/testsuite/g++.dg/template/canon-type-17.C new file mode 100644 index 0000000..0555c8d --- /dev/null +++ b/gcc/testsuite/g++.dg/template/canon-type-17.C @@ -0,0 +1,5 @@ +// { dg-do compile { target c++11 } } +template<unsigned u> struct size_c{ static constexpr unsigned value = u; }; +template<class... T> auto return_size(T... t) -> size_c<sizeof...(t)>; +template<class... T> auto return_size(T... t) -> size_c<sizeof...(t)>; +static_assert(decltype(return_size('a'))::value == 1u, ""); diff --git a/gcc/testsuite/g++.dg/template/canon-type-18.C b/gcc/testsuite/g++.dg/template/canon-type-18.C new file mode 100644 index 0000000..2510181 --- /dev/null +++ b/gcc/testsuite/g++.dg/template/canon-type-18.C @@ -0,0 +1,6 @@ +// { dg-do compile { target c++11 } } +// { dg-options "-Wno-pedantic" } +template<unsigned u> struct size_c{ static constexpr unsigned value = u; }; +template<class T> auto get_align(T t) -> size_c<alignof(t)>; +template<class T> auto get_align(T t) -> size_c<alignof(t)>; +static_assert(decltype(get_align('a'))::value == 1u, ""); diff --git a/gcc/testsuite/g++.dg/template/dependent-name15.C b/gcc/testsuite/g++.dg/template/dependent-name15.C new file mode 100644 index 0000000..1c34bc7 --- /dev/null +++ b/gcc/testsuite/g++.dg/template/dependent-name15.C @@ -0,0 +1,18 @@ +// { dg-do compile { target c++11 } } +template <int N> struct A { static void foo(){} }; +template <> struct A<sizeof(char)> { using foo = int; }; + +template <class T> void f(T t1) { + A<sizeof(t1)>::foo(); +} + +template <class T> void g(T t2) { + /* if the comparing_specializations check breaks in cp_tree_equal + case PARM_DECL, the error will incorrectly report A<sizeof (t1)> */ + A<sizeof(t2)>::foo(); // { dg-error "dependent-name .A<sizeof .t2.>::foo" } +} + +void h() { + f(0); + g('0'); +} diff --git a/gcc/testsuite/g++.dg/template/dependent-name16.C b/gcc/testsuite/g++.dg/template/dependent-name16.C new file mode 100644 index 0000000..ef8c4f2 --- /dev/null +++ b/gcc/testsuite/g++.dg/template/dependent-name16.C @@ -0,0 +1,14 @@ +// { dg-do compile { target c++11 } } +template <int N> struct A { static void foo(){} }; +template <> struct A<sizeof(char)> { using foo = int; }; + +template<class T1> auto f(T1 t1) -> decltype(A<sizeof(t1)>::foo()); + +/* if the comparing_specializations check breaks in cp_tree_equal +case PARM_DECL, the error will incorrectly report A<sizeof (t1)> */ +template<class T2> auto g(T2 t2) -> decltype(A<sizeof(t2)>::foo()); // { dg-error "dependent-name .A<sizeof .t2.>::foo" } + +void h() { + f(0); + g('0'); // { dg-error "no matching function" } +} diff --git a/gcc/testsuite/g++.dg/template/param6.C b/gcc/testsuite/g++.dg/template/param6.C new file mode 100644 index 0000000..8306e75 --- /dev/null +++ b/gcc/testsuite/g++.dg/template/param6.C @@ -0,0 +1,32 @@ +// PR c++/61355 +// Verify we perform array-to-pointer and function-to-pointer conversion +// on the substituted/deduced type of an NTTP. + +int f(); +int p[5]; + +namespace cpp98 { + template<class T, T> struct X; + typedef X<int(), f> ty1; + typedef X<int[5], p> ty2; +} + +namespace cpp11 { +#if __cpp_variadic_templates + template<class T, T...> struct X; + using ty1 = X<int(), f>; + using ty2 = X<int[5], p>; +#endif +} + +namespace cpp17 { +#if __cpp_nontype_template_parameter_auto + template<decltype(auto)> struct X; + using ty1 = X<f>; + using ty2 = X<p>; + + template<decltype(auto)...> struct Y; + using ty3 = Y<f>; + using ty4 = Y<p>; +#endif +} diff --git a/gcc/testsuite/g++.dg/tls/pr102496-1.C b/gcc/testsuite/g++.dg/tls/pr102496-1.C new file mode 100644 index 0000000..8220e1e --- /dev/null +++ b/gcc/testsuite/g++.dg/tls/pr102496-1.C @@ -0,0 +1,20 @@ +// PR c++/102496 +// { dg-do link { target c++11 } } +// { dg-require-effective-target tls } +// { dg-add-options tls } +// { dg-additional-sources pr102496-2.C } + +template <int N> +int +foo () +{ + extern __thread int t1; + return t1; +} + +int +main () +{ + extern __thread int t2; + return foo <0> () + t2; +} diff --git a/gcc/testsuite/g++.dg/tls/pr102496-2.C b/gcc/testsuite/g++.dg/tls/pr102496-2.C new file mode 100644 index 0000000..a71a9cd --- /dev/null +++ b/gcc/testsuite/g++.dg/tls/pr102496-2.C @@ -0,0 +1,6 @@ +// PR c++/102496 +// { dg-do compile { target c++11 } } +// { dg-require-effective-target tls } + +__thread int t1; +__thread int t2; diff --git a/gcc/testsuite/g++.dg/torture/pr102581.C b/gcc/testsuite/g++.dg/torture/pr102581.C new file mode 100644 index 0000000..7f172d0 --- /dev/null +++ b/gcc/testsuite/g++.dg/torture/pr102581.C @@ -0,0 +1,51 @@ +// { dg-do compile } +/* { dg-additional-options "-fno-strict-aliasing" } */ +enum VkStructureType { + VK_STRUCTURE_TYPE_PHYSICAL_DEVICE_BUFFER_DEVICE_ADDRESS_FEATURES_EXT, + VK_STRUCTURE_TYPE_PHYSICAL_DEVICE_FEATURES_2_KHR +} typedef VkPhysicalDeviceSparseProperties; +struct VkPhysicalDeviceProperties { + int apiVersion; + VkPhysicalDeviceSparseProperties sparseProperties; +}; +typedef struct { + VkStructureType sType; + int *pPhysicalDevices; +} VkPhysicalDeviceFeatures2; +typedef struct VkPhysicalDeviceProperties2 { + VkStructureType sType; + void *pNext; +} VkPhysicalDeviceMemoryProperties2; +struct VulkanVersion { + int major; + int minor; + int patch; +}; +int make_vulkan_version_version; +VulkanVersion make_vulkan_version() { + return {make_vulkan_version_version, make_vulkan_version_version, + make_vulkan_version_version}; +} +struct AppGpu { + int &inst; + int id; + int *phys_device = nullptr; + VulkanVersion api_version{}; + VkPhysicalDeviceProperties props{}; + VkPhysicalDeviceProperties2 props2{}; + int memory_props{}; + VkPhysicalDeviceMemoryProperties2 memory_props2{}; + int features{}; + VkPhysicalDeviceFeatures2 features2{}; + int *dev = nullptr; + int enabled_features{}; + int AppGpu_phys_device; + int AppGpu_inst; + AppGpu() : inst(AppGpu_inst), id() { + api_version = make_vulkan_version(); + props2.sType = memory_props2.sType = features2.sType = + VK_STRUCTURE_TYPE_PHYSICAL_DEVICE_FEATURES_2_KHR; + } +}; +int +main() { AppGpu(); return 0; } diff --git a/gcc/testsuite/g++.dg/warn/Waddress-5.C b/gcc/testsuite/g++.dg/warn/Waddress-5.C new file mode 100644 index 0000000..b1ad38a --- /dev/null +++ b/gcc/testsuite/g++.dg/warn/Waddress-5.C @@ -0,0 +1,115 @@ +/* PR c/102103 - missing warning comparing array address to null + { dg-do compile } + { dg-options "-Wall" } */ + +#if __cplusplus < 201103L +# define nullptr __null +#endif + +struct A +{ + void f (); + virtual void vf (); + virtual void pvf () = 0; + + void sf (); + + int *p; + int a[2]; +}; + +void T (bool); + +void warn_memptr_if () +{ + // Exercise warnings for addresses of nonstatic member functions. + if (&A::f == 0) // { dg-warning "the address '&A::f'" } + T (0); + + if (&A::vf) // { dg-warning "-Waddress" } + T (0); + + if (&A::pvf != 0) // { dg-warning "-Waddress" } + T (0); + + // Exercise warnings for addresses of static member functions. + if (&A::sf == 0) // { dg-warning "-Waddress" } + T (0); + + if (&A::sf) // { dg-warning "-Waddress" } + T (0); + + // Exercise warnings for addresses of nonstatic data members. + if (&A::p == 0) // { dg-warning "the address '&A::p'" } + T (0); + + if (&A::a == nullptr) // { dg-warning "-Waddress" } + T (0); +} + +void warn_memptr_bool () +{ + // Exercise warnings for addresses of nonstatic member functions. + T (&A::f == 0); // { dg-warning "-Waddress" } + T (&A::vf); // { dg-warning "-Waddress" } + T (&A::pvf != 0); // { dg-warning "-Waddress" } + + // Exercise warnings for addresses of static member functions. + T (&A::sf == 0); // { dg-warning "-Waddress" } + T (&A::sf); // { dg-warning "-Waddress" } + + // Exercise warnings for addresses of nonstatic data members. + T (&A::p == 0); // { dg-warning "-Waddress" } + T (&A::a == nullptr); // { dg-warning "-Waddress" } +} + + +/* Verify that no warnings are issued for a dependent expression in + a template. */ + +template <int> +struct B +{ + // This is why. + struct F { void* operator& () const { return 0; } } f; +}; + +template <class Type, int N> +void nowarn_dependent (Type targ) +{ + T (&Type::x == 0); + T (&targ == 0); + + Type tarr[1]; + T (&tarr[0] == nullptr); + + T (&B<N>::f == 0); + + /* Like in the case above, the address-of operator could be a member + of B<N>::vf that returns zero. */ + T (&B<N>::vf); + T (&B<N>::pvf != 0); + T (&B<N>::p == 0); + T (&B<N>::a == 0); +} + + +/* Verify that in an uninstantiated template warnings are not issued + for dependent expressions but are issued otherwise. */ + +template <class Type> +void warn_non_dependent (Type targ, Type *tptr, int i) +{ + /* The address of a pointer to a dependent type cannot be null but + the warning doesn't have a chance to see it. */ + T (&tptr == 0); // { dg-warning "-Waddress" "pr102378" { xfail *-*-* } } + T (&i == 0); // { dg-warning "-Waddress" } + + int iarr[1]; + T (&iarr == 0); // { dg-warning "-Waddress" } + T (&*iarr != 0); // { dg-warning "-Waddress" "pr102378" { xfail *-*-* } } + T (&iarr[0] == 0); // { dg-warning "-Waddress" } + + Type tarr[1]; + T (&tarr == nullptr); // { dg-warning "-Waddress" "pr102378" { xfail *-*-* } } +} diff --git a/gcc/testsuite/g++.dg/warn/Waddress-6.C b/gcc/testsuite/g++.dg/warn/Waddress-6.C new file mode 100644 index 0000000..c22a83a --- /dev/null +++ b/gcc/testsuite/g++.dg/warn/Waddress-6.C @@ -0,0 +1,79 @@ +/* PR c/102103 - missing warning comparing array address to null + { dg-do compile } + Verify -Waddress for member arrays of structs and notes. + { dg-options "-Wall" } */ + +#if __cplusplus < 201103L +# define nullptr __null +#endif + +void T (bool); + +struct A +{ + int n; + int ia[]; // { dg-message "'A::ia' declared here" } +}; + +struct B +{ + A a[3]; // { dg-message "'B::a' declared here" } +}; + +struct C +{ + B b[3]; // { dg-message "'C::b' declared here" } +}; + +struct D +{ + C c[3]; // { dg-message "'D::c' declared here" } +}; + + +void test_waddress_1d () +{ + D d[2]; // { dg-message "'d' declared here" } + + T (d); // { dg-warning "address of 'd'" } + T (d == nullptr); // { dg-warning "address of 'd'" } + T (&d); // { dg-warning "address of 'd'" } + T (d->c); // { dg-warning "address of 'D::c'" } + T (d->c != nullptr); // { dg-warning "address of 'D::c'" } + T (d->c->b); // { dg-warning "address of 'C::b'" } + T (d->c[1].b->a); // { dg-warning "address of 'B::a'" } + T (d->c->b[2].a->ia); // { dg-warning "address of 'A::ia'" } + + if (d->c->b[2].a[1].ia) // { dg-warning "address of 'A::ia'" } + T (0); + + if (bool b = d->c->b[1].a) // { dg-warning "address of 'B::a'" } + T (b); + + /* The following is represented as a declaration of P followed + by an if statement and so it isn't diagnosed. It's not clear + that it should be since the pointer is then used. + void *p = d->c->b[2].a; + if (p) ... + */ + if (void *p = d->c->b[2].a) // { dg-warning "address of 'A::ia'" "" { xfail *-*-* } } + T (p); +} + + +void test_waddress_2d (int i) +{ + D d[2][3]; // { dg-message "'d' declared here" } + + T (d); // { dg-warning "address of 'd'" } + T (d == nullptr); // { dg-warning "address of 'd'" } + T (&d); // { dg-warning "address of 'd'" } + T (*d); // { dg-warning "address of 'd'" } + T (d[1] != nullptr); // { dg-warning "address of 'd'" } + T (&d[1]->c); // { dg-warning "address of 'D::c'" } + T (d[1]->c); // { dg-warning "address of 'D::c'" } + T (d[1]->c == nullptr); // { dg-warning "address of 'D::c'" } + T (d[i]->c[1].b); // { dg-warning "address of 'C::b'" } + T ((*(d + i))->c->b->a); // { dg-warning "address of 'B::a'" } + T (d[1][2].c->b->a->ia); // { dg-warning "address of 'A::ia'" } +} diff --git a/gcc/testsuite/g++.dg/warn/Winit-list5.C b/gcc/testsuite/g++.dg/warn/Winit-list5.C new file mode 100644 index 0000000..07b3a69 --- /dev/null +++ b/gcc/testsuite/g++.dg/warn/Winit-list5.C @@ -0,0 +1,61 @@ +// PR c++/102482 +// { dg-do compile { target c++11 } } +// Test we don't warn for non-const lvalue refs. + +#include <initializer_list> + +struct X { }; + +struct span +{ + span(std::initializer_list<int>& il) + : begin(il.begin()) // { dg-bogus "initializer_list" } + { } + + const int* begin; +}; + +struct span_warn +{ + span_warn(std::initializer_list<int> il) + : begin(il.begin()) // { dg-warning "initializer_list" } + { } + + const int* begin; +}; + +struct span_warn2 +{ + span_warn2(std::initializer_list<int>&& il) + : begin(il.begin()) // { dg-warning "initializer_list" } + { } + + const int* begin; +}; + +struct span_warn3 +{ + span_warn3(std::initializer_list<int> const& il) + : begin(il.begin()) // { dg-warning "initializer_list" } + { } + + const int* begin; +}; + +struct span_warn4 +{ + span_warn4(std::initializer_list<int> const il) + : begin(il.begin()) // { dg-warning "initializer_list" } + { } + + const int* begin; +}; + +struct span_warn5 +{ + span_warn5(std::initializer_list<int> const&& il) + : begin(il.begin()) // { dg-warning "initializer_list" } + { } + + const int* begin; +}; diff --git a/gcc/testsuite/g++.dg/warn/Wreturn-local-addr-6.C b/gcc/testsuite/g++.dg/warn/Wreturn-local-addr-6.C index bfe1445..fae8b7e 100644 --- a/gcc/testsuite/g++.dg/warn/Wreturn-local-addr-6.C +++ b/gcc/testsuite/g++.dg/warn/Wreturn-local-addr-6.C @@ -9,7 +9,7 @@ const intptr_t& return_addr_label_as_intref (void) { label: - if ((const intptr_t*)&&label == 0) + if ((const intptr_t)&&label == 0) __builtin_exit (1); return *(const intptr_t*)&&label; // { dg-warning "\\\[-Wreturn-local-addr]" } */ @@ -19,7 +19,7 @@ const intptr_t& return_addr_local_as_intref (void) { int a[1]; - if ((const intptr_t*)a == 0) + if ((const intptr_t)a == 0) __builtin_exit (1); return (const intptr_t&)a; // { dg-warning "\\\[-Wreturn-local-addr]" } */ diff --git a/gcc/testsuite/g++.dg/warn/pr101219.C b/gcc/testsuite/g++.dg/warn/pr101219.C index 0d23d73..d5d44e4 100644 --- a/gcc/testsuite/g++.dg/warn/pr101219.C +++ b/gcc/testsuite/g++.dg/warn/pr101219.C @@ -7,5 +7,7 @@ struct S { void m(); }; template <int> bool f() { void (S::*mp)(); - return &S::m == mp; // no warning emitted here (no instantiation) + /* The expression below isn't type-dependent so also verify + it's diagnosed even though the template isn't instantiated. */ + return &S::m == mp; // { dg-warning "\\\[-Waddress" } } diff --git a/gcc/testsuite/g++.old-deja/g++.pt/nontype5.C b/gcc/testsuite/g++.old-deja/g++.pt/nontype5.C index 2678cf7..e24dca4 100644 --- a/gcc/testsuite/g++.old-deja/g++.pt/nontype5.C +++ b/gcc/testsuite/g++.old-deja/g++.pt/nontype5.C @@ -19,5 +19,5 @@ static int g() { return f(); } int f() { return 0; } int main() { -return B<int,&f>::g(); // { dg-error "" } could not convert arg +return B<int,&f>::g(); } diff --git a/gcc/testsuite/g++.target/i386/avx512fp16-vcondmn-minmax.C b/gcc/testsuite/g++.target/i386/avx512fp16-vcondmn-minmax.C new file mode 100644 index 0000000..6d50f49 --- /dev/null +++ b/gcc/testsuite/g++.target/i386/avx512fp16-vcondmn-minmax.C @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +/* { dg-final { scan-assembler-times "vminph" 3 } } */ +/* { dg-final { scan-assembler-times "vmaxph" 3 } } */ + +typedef _Float16 v8hf __attribute__ ((vector_size (16))); +typedef _Float16 v16hf __attribute__ ((vector_size (32))); +typedef _Float16 v32hf __attribute__ ((vector_size (64))); + +#define VCONDMINMAX(size, op, name) \ +v##size##hf \ +__attribute__ ((noinline, noclone)) \ +vminmax_##v##size##hf##v##size##hf##name (v##size##hf a, v##size##hf b) \ +{ \ + return (a op b) ? a : b; \ +} + +VCONDMINMAX (8, <, min) +VCONDMINMAX (8, >, max) +VCONDMINMAX (16, <, min) +VCONDMINMAX (16, >, max) +VCONDMINMAX (32, <, min) +VCONDMINMAX (32, >, max) + diff --git a/gcc/testsuite/g++.target/i386/avx512fp16-vcondmn-vec.C b/gcc/testsuite/g++.target/i386/avx512fp16-vcondmn-vec.C new file mode 100644 index 0000000..de93e2c --- /dev/null +++ b/gcc/testsuite/g++.target/i386/avx512fp16-vcondmn-vec.C @@ -0,0 +1,70 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +/* { dg-final { scan-assembler-times "vcmpph" 45 } } */ +/* { dg-final { scan-assembler-times "vpcmpuw" 12 } } */ +/* { dg-final { scan-assembler-times "vpcmpw" 18 } } */ +/* { dg-final { scan-assembler-times "(?:vpblendmw|vmovdqu16\[^\{\n\]+\{%k\[1-7\]\})" 75 } } */ + +typedef _Float16 v8hf __attribute__ ((vector_size (16))); +typedef _Float16 v16hf __attribute__ ((vector_size (32))); +typedef _Float16 v32hf __attribute__ ((vector_size (64))); +typedef short v8hi __attribute__ ((vector_size (16))); +typedef short v16hi __attribute__ ((vector_size (32))); +typedef short v32hi __attribute__ ((vector_size (64))); +typedef unsigned short v8uhi __attribute__ ((vector_size (16))); +typedef unsigned short v16uhi __attribute__ ((vector_size (32))); +typedef unsigned short v32uhi __attribute__ ((vector_size (64))); + +#define VCONDMOV(size, op, name) \ +v##size##hf \ +__attribute__ ((noinline, noclone)) \ +vcond_##v##size##hf##v##size##hf##name (v##size##hf a, v##size##hf b, \ + v##size##hf c, v##size##hf d) \ +{ \ + return (a op b) ? c : d; \ +}\ +v##size##hf \ +__attribute__ ((noinline, noclone)) \ +vcond_##v##size##hi##v##size##hf##name (v##size##hi a, v##size##hi b, \ + v##size##hf c, v##size##hf d) \ +{ \ + return (a op b) ? c : d; \ +}\ +v##size##hi \ +__attribute__ ((noinline, noclone)) \ +vcond_##v##size##hf##v##size##hi##name (v##size##hi a, v##size##hi b, \ + v##size##hf c, v##size##hf d) \ +{ \ + return (c op d) ? a : b; \ +} \ +v##size##hf \ +__attribute__ ((noinline, noclone)) \ +vcond_##v##size##uhi##v##size##hf##name (v##size##uhi a, v##size##uhi b, \ + v##size##hf c, v##size##hf d) \ +{ \ + return (a op b) ? c : d; \ +}\ +v##size##uhi \ +__attribute__ ((noinline, noclone)) \ +vcond_##v##size##hf##v##size##uhi##name (v##size##uhi a, v##size##uhi b, \ + v##size##hf c, v##size##hf d) \ +{ \ + return (c op d) ? a : b; \ +} \ + +VCONDMOV (8, <, lt) +VCONDMOV (8, >, gt) +VCONDMOV (8, ==, eq) +VCONDMOV (8, <=, le) +VCONDMOV (8, >=, ge) +VCONDMOV (16, <, lt) +VCONDMOV (16, >, gt) +VCONDMOV (16, <=, le) +VCONDMOV (16, >=, ge) +VCONDMOV (16, ==, eq) +VCONDMOV (32, <, lt) +VCONDMOV (32, >, gt) +VCONDMOV (32, <=, le) +VCONDMOV (32, >=, ge) +VCONDMOV (32, ==, eq) diff --git a/gcc/testsuite/g++.target/i386/pr102548.C b/gcc/testsuite/g++.target/i386/pr102548.C new file mode 100644 index 0000000..e1238c3 --- /dev/null +++ b/gcc/testsuite/g++.target/i386/pr102548.C @@ -0,0 +1,12 @@ +// PR c++/102548 +// { dg-do compile { target { c++14 && ia32 } } } + +typedef decltype(sizeof(0)) size_t; +struct tm; +extern "C" size_t __attribute__((__cdecl__)) strftime (char *, size_t, const char *, const struct tm *); + +auto +foo (void) +{ + return strftime; +} diff --git a/gcc/testsuite/g++.target/powerpc/pr102024.C b/gcc/testsuite/g++.target/powerpc/pr102024.C new file mode 100644 index 0000000..7695850 --- /dev/null +++ b/gcc/testsuite/g++.target/powerpc/pr102024.C @@ -0,0 +1,23 @@ +// PR target/102024 +// { dg-do compile { target powerpc_elfv2 } } +// { dg-options "-O2" } + +// Test that a zero-width bit field in an otherwise homogeneous aggregate +// generates a psabi warning and passes arguments in GPRs. + +// { dg-final { scan-assembler-times {\mstd\M} 4 } } + +struct a_thing +{ + double x; + double y; + double z; + int : 0; + double w; +}; + +double +foo (a_thing a) // { dg-message "ELFv2 parameter passing for an argument containing zero-width bit fields but that is otherwise a homogeneous aggregate was corrected in GCC 12" } +{ + return a.x * a.y + a.z - a.w; +} diff --git a/gcc/testsuite/gcc.c-torture/compile/920826-1.c b/gcc/testsuite/gcc.c-torture/compile/920826-1.c index c2d8843..2a175456 100644 --- a/gcc/testsuite/gcc.c-torture/compile/920826-1.c +++ b/gcc/testsuite/gcc.c-torture/compile/920826-1.c @@ -1,3 +1,3 @@ /* { dg-require-effective-target indirect_jumps } */ -f(int*x){goto*(char)*x;} +f(int*x){goto*(void*)(__INTPTR_TYPE__)(char)*x;} diff --git a/gcc/testsuite/gcc.c-torture/compile/920831-1.c b/gcc/testsuite/gcc.c-torture/compile/920831-1.c index 9e422a9..945c521 100644 --- a/gcc/testsuite/gcc.c-torture/compile/920831-1.c +++ b/gcc/testsuite/gcc.c-torture/compile/920831-1.c @@ -1,3 +1,3 @@ /* { dg-require-effective-target indirect_jumps } */ -f(x){goto*(char)x;} +f(x){goto*(void *)x;} diff --git a/gcc/testsuite/gcc.c-torture/compile/attr-complex-method-2.c b/gcc/testsuite/gcc.c-torture/compile/attr-complex-method-2.c new file mode 100644 index 0000000..121ae17 --- /dev/null +++ b/gcc/testsuite/gcc.c-torture/compile/attr-complex-method-2.c @@ -0,0 +1,11 @@ +/* { dg-additional-options "-fcx-limited-range -fdump-tree-optimized" } */ +/* { dg-skip-if "" { *-*-* } { "-flto" } { "" } } */ + +#pragma GCC optimize "-fno-cx-limited-range" + +void do_div (_Complex double *a, _Complex double *b) +{ + *a = *b / (4.0 - 5.0fi); +} + +/* { dg-final { scan-tree-dump "__divdc3" "optimized" } } */ diff --git a/gcc/testsuite/gcc.c-torture/compile/attr-complex-method.c b/gcc/testsuite/gcc.c-torture/compile/attr-complex-method.c new file mode 100644 index 0000000..046de7e --- /dev/null +++ b/gcc/testsuite/gcc.c-torture/compile/attr-complex-method.c @@ -0,0 +1,11 @@ +/* { dg-additional-options "-fdump-tree-optimized" } */ +/* { dg-skip-if "" { *-*-* } { "-flto" } { "" } } */ + +#pragma GCC optimize "-fcx-limited-range" + +void do_div (_Complex double *a, _Complex double *b) +{ + *a = *b / (4.0 - 5.0fi); +} + +/* { dg-final { scan-tree-dump-not "__divdc3" "optimized" } } */ diff --git a/gcc/testsuite/gcc.c-torture/compile/pr27863.c b/gcc/testsuite/gcc.c-torture/compile/pr27863.c index 926312e4..1428ce3 100644 --- a/gcc/testsuite/gcc.c-torture/compile/pr27863.c +++ b/gcc/testsuite/gcc.c-torture/compile/pr27863.c @@ -14,7 +14,7 @@ int main(int argc,char**argv,char **envp) _loc1:; *++esp=(long)&&_loc35; _loc35:; -goto *(*esp--); +goto *(void *)(*esp--); *++esp=(long)&&_loc36; _loc36:; *++esp=(long)&&_loc37; @@ -27,5 +27,5 @@ _loc66:; *++esp=(long)&&_loc119; _loc119:; SetTermStruc: - goto *(*esp--); + goto *(void*)(__INTPTR_TYPE__)(*esp--); } diff --git a/gcc/testsuite/gcc.c-torture/compile/pr70190.c b/gcc/testsuite/gcc.c-torture/compile/pr70190.c index d3d209a..6c57b50 100644 --- a/gcc/testsuite/gcc.c-torture/compile/pr70190.c +++ b/gcc/testsuite/gcc.c-torture/compile/pr70190.c @@ -8,7 +8,7 @@ fn1 () static char a[] = "foo"; static void *b[] = { &&l1, &&l2 }; goto *(b[1]); - l1: goto *(a[0]); + l1: goto *(void*)(__INTPTR_TYPE__)(a[0]); l2: return 0; } diff --git a/gcc/testsuite/gcc.dg/Waddress-3.c b/gcc/testsuite/gcc.dg/Waddress-3.c new file mode 100644 index 0000000..c404f6b --- /dev/null +++ b/gcc/testsuite/gcc.dg/Waddress-3.c @@ -0,0 +1,35 @@ +/* PR c/102103 - missing warning comparing array address to null + { dg-do compile } + { dg-options "-Wall" } */ + +typedef _Complex float Cflt; + +extern Cflt cf, cfa[], cfa2[][2]; + +Cflt *pcf (void); + +void T (int); + +void test_complex (Cflt *p, int i) +{ + T (&__real__ cf == 0); // { dg-warning "address of '__real__ cf'" } + T (&__imag__ cf == 0); // { dg-warning "address of '__imag__ cf'" } + + T (0 != &__real__ cf); // { dg-warning "-Waddress" } + T (0 != &__imag__ cf); // { dg-warning "-Waddress" } + + T (&__real__ cfa[0] == 0); // { dg-warning "-Waddress" } + T (&__imag__ cfa[1] == 0); // { dg-warning "-Waddress" } + + T (0 != &__real__ cfa2[i][i]); // { dg-warning "-Waddress" } + T (0 != &__imag__ cfa2[i][i]); // { dg-warning "-Waddress" } + + T (0 == &__real__ *p); // { dg-warning "-Waddress" } + T (0 == &__imag__ *p); // { dg-warning "-Waddress" } + + T (0 == &__real__ p[i]); // { dg-warning "-Waddress" } + T (0 == &__imag__ p[i]); // { dg-warning "-Waddress" } + + T (&__real__ *pcf () == 0); // { dg-warning "-Waddress" } + T (0 != &__imag__ *pcf ()); // { dg-warning "-Waddress" } +} diff --git a/gcc/testsuite/gcc.dg/Waddress.c b/gcc/testsuite/gcc.dg/Waddress.c index 146b1a9..b26e7b1 100644 --- a/gcc/testsuite/gcc.dg/Waddress.c +++ b/gcc/testsuite/gcc.dg/Waddress.c @@ -6,5 +6,5 @@ int foo(void) { char a[1]; - return a == 0; + return a == 0; // { dg-warning "-Waddress" } } diff --git a/gcc/testsuite/gcc.dg/analyzer/torture/asm-x86-linux-rdmsr.c b/gcc/testsuite/gcc.dg/analyzer/torture/asm-x86-linux-rdmsr.c index 0a1c48f..69d0165 100644 --- a/gcc/testsuite/gcc.dg/analyzer/torture/asm-x86-linux-rdmsr.c +++ b/gcc/testsuite/gcc.dg/analyzer/torture/asm-x86-linux-rdmsr.c @@ -6,7 +6,7 @@ /* Adapted from Linux: arch/x86/include/asm/msr.h (GPL-2.0) */ #ifdef __x86_64__ -#define DECLARE_ARGS(val, low, high) unsigned long low, high +#define DECLARE_ARGS(val, low, high) unsigned long long low, high #define EAX_EDX_VAL(val, low, high) ((low) | (high) << 32) #define EAX_EDX_RET(val, low, high) "=a" (low), "=d" (high) #else diff --git a/gcc/testsuite/gcc.dg/auto-init-hardreg-1.c b/gcc/testsuite/gcc.dg/auto-init-hardreg-1.c new file mode 100644 index 0000000..7c9de99 --- /dev/null +++ b/gcc/testsuite/gcc.dg/auto-init-hardreg-1.c @@ -0,0 +1,9 @@ +/* { dg-do run { target i?86-*-* x86_64-*-* } } */ +/* { dg-options "-ftrivial-auto-var-init=zero" } */ + +int +main () +{ + register long *sp __asm__("sp"); + return 0; +} diff --git a/gcc/testsuite/gcc.dg/comp-goto-5.c b/gcc/testsuite/gcc.dg/comp-goto-5.c new file mode 100644 index 0000000..d487729 --- /dev/null +++ b/gcc/testsuite/gcc.dg/comp-goto-5.c @@ -0,0 +1,11 @@ +/* PR c/32122 */ +/* { dg-do compile } */ +/* { dg-options "" } */ + +enum {a=1}; +void foo() +{ + goto * + a; /* { dg-error "computed goto must be pointer type" } */ +} + diff --git a/gcc/testsuite/gcc.dg/comp-goto-6.c b/gcc/testsuite/gcc.dg/comp-goto-6.c new file mode 100644 index 0000000..497f6cd --- /dev/null +++ b/gcc/testsuite/gcc.dg/comp-goto-6.c @@ -0,0 +1,6 @@ +/* PR c/32122 */ +/* { dg-do compile } */ +/* { dg-options "" } */ +void foo(void *a) { goto *10000000; } /* { dg-error "computed goto must be pointer type" } */ +void foo1(void *a) { goto *a; } + diff --git a/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-1.c b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-1.c new file mode 100644 index 0000000..efcfbc9 --- /dev/null +++ b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-1.c @@ -0,0 +1,5 @@ +/* Test #elifdef and #elifndef in GNU11. */ +/* { dg-do preprocess } */ +/* { dg-options "-std=gnu11" } */ + +#include "c2x-elifdef-1.c" diff --git a/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-2.c b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-2.c new file mode 100644 index 0000000..e5bd705 --- /dev/null +++ b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-2.c @@ -0,0 +1,63 @@ +/* Test #elifdef and #elifndef in GNU11: erroneous usages. */ +/* { dg-do preprocess } */ +/* { dg-options "-std=gnu11" } */ + +#define A +#undef B + +#elifdef A /* { dg-error "#elifdef without #if" } */ +#elifdef B /* { dg-error "#elifdef without #if" } */ +#elifndef A /* { dg-error "#elifndef without #if" } */ +#elifndef B /* { dg-error "#elifndef without #if" } */ + +#if 1 /* { dg-error "-:began here" } */ +#else +#elifdef A /* { dg-error "#elifdef after #else" } */ +#endif + +#if 1 /* { dg-error "-:began here" } */ +#else +#elifdef B /* { dg-error "#elifdef after #else" } */ +#endif + +#if 1 /* { dg-error "-:began here" } */ +#else +#elifndef A /* { dg-error "#elifndef after #else" } */ +#endif + +#if 1 /* { dg-error "-:began here" } */ +#else +#elifndef B /* { dg-error "#elifndef after #else" } */ +#endif + +#if 0 +#elifdef A = /* { dg-warning "extra tokens at end of #elifdef directive" } */ +#endif + +#if 0 +#elifdef B = /* { dg-warning "extra tokens at end of #elifdef directive" } */ +#endif + +#if 0 +#elifndef A = /* { dg-warning "extra tokens at end of #elifndef directive" } */ +#endif + +#if 0 +#elifndef B = /* { dg-warning "extra tokens at end of #elifndef directive" } */ +#endif + +#if 0 +#elifdef /* { dg-error "no macro name given in #elifdef directive" } */ +#endif + +#if 0 +#elifndef /* { dg-error "no macro name given in #elifndef directive" } */ +#endif + +#if 0 +#elifdef , /* { dg-error "macro names must be identifiers" } */ +#endif + +#if 0 +#elifndef , /* { dg-error "macro names must be identifiers" } */ +#endif diff --git a/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-3.c b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-3.c new file mode 100644 index 0000000..0b769a7 --- /dev/null +++ b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-3.c @@ -0,0 +1,65 @@ +/* Test #elifdef and #elifndef in GNU11. */ +/* { dg-do preprocess } */ +/* { dg-options "-std=gnu11 -pedantic" } */ + +#define A +#undef B + +#if 0 +#elifdef A /* { dg-warning "#elifdef before C2X is a GCC extension" } */ +#define M1 1 +#endif + +#if M1 != 1 +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifdef B +#error "#elifdef B applied" +#endif + +#if 0 +#elifndef A +#error "#elifndef A applied" +#endif + +#if 0 +#elifndef B /* { dg-warning "#elifndef before C2X is a GCC extension" } */ +#define M2 2 +#endif + +#if M2 != 2 +#error "#elifndef B did not apply" +#endif + +#if 0 +#elifdef A /* { dg-warning "#elifdef before C2X is a GCC extension" } */ +#else +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifndef B /* { dg-warning "#elifndef before C2X is a GCC extension" } */ +#else +#error "#elifndef B did not apply" +#endif + +#if 1 +#elifdef A /* { dg-warning "#elifdef before C2X is a GCC extension" } */ +#endif + +#if 1 +#elifndef B /* { dg-warning "#elifndef before C2X is a GCC extension" } */ +#endif + +/* As with #elif, the syntax of the new directives is relaxed after a + non-skipped group. */ + +#if 1 +#elifdef x * y /* { dg-warning "#elifdef before C2X is a GCC extension" } */ +#endif + +#if 1 +#elifndef ! /* { dg-warning "#elifndef before C2X is a GCC extension" } */ +#endif diff --git a/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-4.c b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-4.c new file mode 100644 index 0000000..aba3467 --- /dev/null +++ b/gcc/testsuite/gcc.dg/cpp/gnu11-elifdef-4.c @@ -0,0 +1,65 @@ +/* Test #elifdef and #elifndef in GNU11. */ +/* { dg-do preprocess } */ +/* { dg-options "-std=gnu11 -pedantic-errors" } */ + +#define A +#undef B + +#if 0 +#elifdef A /* { dg-error "#elifdef before C2X is a GCC extension" } */ +#define M1 1 +#endif + +#if M1 != 1 +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifdef B +#error "#elifdef B applied" +#endif + +#if 0 +#elifndef A +#error "#elifndef A applied" +#endif + +#if 0 +#elifndef B /* { dg-error "#elifndef before C2X is a GCC extension" } */ +#define M2 2 +#endif + +#if M2 != 2 +#error "#elifndef B did not apply" +#endif + +#if 0 +#elifdef A /* { dg-error "#elifdef before C2X is a GCC extension" } */ +#else +#error "#elifdef A did not apply" +#endif + +#if 0 +#elifndef B /* { dg-error "#elifndef before C2X is a GCC extension" } */ +#else +#error "#elifndef B did not apply" +#endif + +#if 1 +#elifdef A /* { dg-error "#elifdef before C2X is a GCC extension" } */ +#endif + +#if 1 +#elifndef B /* { dg-error "#elifndef before C2X is a GCC extension" } */ +#endif + +/* As with #elif, the syntax of the new directives is relaxed after a + non-skipped group. */ + +#if 1 +#elifdef x * y /* { dg-error "#elifdef before C2X is a GCC extension" } */ +#endif + +#if 1 +#elifndef ! /* { dg-error "#elifndef before C2X is a GCC extension" } */ +#endif diff --git a/gcc/testsuite/gcc.dg/fold-negate-1.c b/gcc/testsuite/gcc.dg/fold-negate-1.c new file mode 100644 index 0000000..00ec8b4 --- /dev/null +++ b/gcc/testsuite/gcc.dg/fold-negate-1.c @@ -0,0 +1,58 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized" } */ + +#define SHIFT ((8*__SIZEOF_INT__)-1) + +int test_rshift_1(int x) +{ + int t = x >> SHIFT; + return -t; +} + +int test_rshift_2(int x) +{ + unsigned int t = (unsigned int)x >> SHIFT; + return -t; +} + +int test_rshift_3(int x) +{ + int t = (unsigned int)x >> SHIFT; + return -t; +} + +int test_rshift_4(int x) +{ + unsigned int t = x >> SHIFT; + return -t; +} + +double test_mul_1(double x) +{ + double t = -5.0 * x; + return -t; +} + +double test_mul_2(double x, double y) +{ + double t1 = -x; + double t2 = t1 * y; + return -t2; +} + +double test_rdiv_1(double x, double y) +{ + double t1 = -x; + double t2 = t1 / y; + return -t2; +} + +double test_rdiv_2(double x, double y) +{ + double t1 = -y; + double t2 = x / t1; + return -t2; +} + +/* { dg-final { scan-tree-dump-not " -" "optimized" } } */ + diff --git a/gcc/testsuite/gcc.dg/gimplefe-46.c b/gcc/testsuite/gcc.dg/gimplefe-46.c new file mode 100644 index 0000000..fb91f7d --- /dev/null +++ b/gcc/testsuite/gcc.dg/gimplefe-46.c @@ -0,0 +1,23 @@ +/* { dg-do compile } */ +/* { dg-options "-fgimple" } */ + +char global[10]; + +void bar (void); + +void __GIMPLE (ssa) +foo (char * p) +{ + __BB(2): + if (p_2(D) == _Literal (char *)&global[2]) + goto __BB3; + else + goto __BB4; + + __BB(3): + bar (); + goto __BB4; + + __BB(4): + return; +} diff --git a/gcc/testsuite/gcc.dg/gimplefe-47.c b/gcc/testsuite/gcc.dg/gimplefe-47.c new file mode 100644 index 0000000..3bbd34d --- /dev/null +++ b/gcc/testsuite/gcc.dg/gimplefe-47.c @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-options "-fgimple" } */ + +char * begfield (int tab, char * ptr, char * lim, int sword, int schar); + +int __GIMPLE (ssa) +main () +{ + char * lim; + char * s; + char * _1; + + __BB(2): + _1 = begfield (58, ":ab", &__MEM <char[4]> ((void *)&":ab" + _Literal +(void *) 3), 1, 1); + if (_1 != _Literal (char *) &__MEM <char[4]> ((void *)&":ab" + _Literal (void *) 2)) + goto __BB3; + else + goto __BB4; + + __BB(3): + __builtin_abort (); + + __BB(4): + __builtin_exit (0); +} + diff --git a/gcc/testsuite/gcc.dg/guality/example.c b/gcc/testsuite/gcc.dg/guality/example.c index 6f1c017..32014e2b 100644 --- a/gcc/testsuite/gcc.dg/guality/example.c +++ b/gcc/testsuite/gcc.dg/guality/example.c @@ -1,5 +1,5 @@ -/* { dg-do run { xfail { ! aarch64*-*-* } } } */ /* { dg-options "-g" } */ +/* { dg-do run { xfail { ! aarch64*-*-* } } } */ /* { dg-xfail-run-if "" aarch64*-*-* "*" { "-O[01g]" } } */ #define GUALITY_DONT_FORCE_LIVE_AFTER -1 diff --git a/gcc/testsuite/gcc.dg/out-of-bounds-1.c b/gcc/testsuite/gcc.dg/out-of-bounds-1.c index 1c76341..5c134c0 100644 --- a/gcc/testsuite/gcc.dg/out-of-bounds-1.c +++ b/gcc/testsuite/gcc.dg/out-of-bounds-1.c @@ -8,6 +8,6 @@ void ProjectOverlay(const float localTextureAxis[2], char *lump) { const void *d = &localTextureAxis; - int size = sizeof(float)*8 ; + int size = sizeof(float)*7 ; __builtin_memcpy( &lump[ 0 ], d, size ); /* { dg-warning "reading" } */ } diff --git a/gcc/testsuite/gcc.dg/pr102087.c b/gcc/testsuite/gcc.dg/pr102087.c new file mode 100644 index 0000000..5cd094f --- /dev/null +++ b/gcc/testsuite/gcc.dg/pr102087.c @@ -0,0 +1,35 @@ +/* { dg-do compile } */ +/* { dg-options "-O3" } */ + +unsigned __attribute__ ((noinline)) +foo (int *__restrict__ a, int *__restrict__ b, unsigned l, unsigned n) +{ + while (n < ++l) + *a++ = *b++ + 1; + return l; +} + +volatile int a[1]; +unsigned b; +int c; + +int +check () +{ + int d; + for (; b > 1; b++) + for (c = 0; c < 2; c++) + for (d = 0; d < 2; d++) + a[0]; + return 0; +} + +char **clip_image_gfi_0; +int clip_image_y, clip_image_shift; +void +clip_image () +{ + for (; clip_image_y >= clip_image_shift; clip_image_y++) + clip_image_gfi_0[clip_image_shift] + = clip_image_gfi_0[clip_image_y]; +} diff --git a/gcc/testsuite/gcc.dg/pr102463.c b/gcc/testsuite/gcc.dg/pr102463.c new file mode 100644 index 0000000..ca63f0b --- /dev/null +++ b/gcc/testsuite/gcc.dg/pr102463.c @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +_Bool _bfd_elf_merge_symbol_h, _bfd_elf_merge_symbol_h_1; +_Bool _bfd_elf_merge_symbol_olddef; +_Bool bfd_is_com_section(); + +void +_bfd_elf_merge_symbol() { + _Bool newdef = bfd_is_com_section(), ntdef, tdef; + _bfd_elf_merge_symbol_olddef = _bfd_elf_merge_symbol_h; + if (_bfd_elf_merge_symbol_h_1) { + ntdef = newdef; + tdef = _bfd_elf_merge_symbol_h; + } else { + ntdef = _bfd_elf_merge_symbol_h; + tdef = newdef; + } + if (tdef && ntdef) + ; +} diff --git a/gcc/testsuite/gcc.dg/pr102511.c b/gcc/testsuite/gcc.dg/pr102511.c new file mode 100644 index 0000000..8a9af34 --- /dev/null +++ b/gcc/testsuite/gcc.dg/pr102511.c @@ -0,0 +1,21 @@ +// { dg-do run } +// { dg-options "-O3" } + +char arr_15 [8]; +__attribute__((noipa)) +void test(signed char a, unsigned short b, unsigned long long c, + unsigned short f) { + for (int d = b - 8; d < b; d += 2) + for (short e = 0; e < (unsigned short)((f ? 122 : 0) ^ (a ? c : 0)) - 64055; + e += 3) + arr_15[d] = 42; +} +int main() { + test(37, 8, 12325048486467861044ULL, 45936); + for (int i = 0; i < 8; ++i) + { + if (arr_15[i] != ((i&1) ? 0 : 42)) + __builtin_abort(); + } + return 0; +} diff --git a/gcc/testsuite/gcc.dg/pr78408-1.c b/gcc/testsuite/gcc.dg/pr78408-1.c index 94e2090..dc9870a 100644 --- a/gcc/testsuite/gcc.dg/pr78408-1.c +++ b/gcc/testsuite/gcc.dg/pr78408-1.c @@ -3,7 +3,7 @@ /* { dg-options "-O2 -fdump-tree-fab1-details" } */ /* { dg-final { scan-tree-dump-times "after previous" 17 "fab1" } } */ -struct S { char a[32]; }; +struct S { char a[33]; }; struct T { char a[65536]; }; void bar (int, struct S *, struct S *, struct T *, struct T *); void baz (char *, char *); diff --git a/gcc/testsuite/gcc.dg/pr94726.c b/gcc/testsuite/gcc.dg/pr94726.c new file mode 100644 index 0000000..d6911a6 --- /dev/null +++ b/gcc/testsuite/gcc.dg/pr94726.c @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ +typedef unsigned int type __attribute__ ( ( vector_size ( 2*sizeof(int) ) ) ) ; +type a , b; +/* { dg-message "note: previous declaration" "previous declaration" { target *-*-* } .-1 } */ +void foo ( void ) { + type var = { 2 , 2 } ; + b = __builtin_shuffle ( a , var ) ; +} + +void * a [ ] = { } ; /* { dg-error "conflicting types" } */ diff --git a/gcc/testsuite/gcc.dg/torture/pr102518.c b/gcc/testsuite/gcc.dg/torture/pr102518.c new file mode 100644 index 0000000..bd181ec --- /dev/null +++ b/gcc/testsuite/gcc.dg/torture/pr102518.c @@ -0,0 +1,12 @@ +/* { dg-do compile } */ + +struct A { + int *x; +}; +int i; +int f(int *const c) { + struct A * b = (struct A *)(&c); + return b->x != 0; +} +void g() { f(&i); } + diff --git a/gcc/testsuite/gcc.dg/torture/pr55107.c b/gcc/testsuite/gcc.dg/torture/pr55107.c index d757c04..2edb75f 100644 --- a/gcc/testsuite/gcc.dg/torture/pr55107.c +++ b/gcc/testsuite/gcc.dg/torture/pr55107.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-additional-options "-fno-split-loops" } */ +/* { dg-additional-options "-fno-split-loops -w" } */ typedef unsigned short uint16_t; diff --git a/gcc/testsuite/gcc.dg/torture/pr89135.c b/gcc/testsuite/gcc.dg/torture/pr89135.c index 278303f..4cf0533 100644 --- a/gcc/testsuite/gcc.dg/torture/pr89135.c +++ b/gcc/testsuite/gcc.dg/torture/pr89135.c @@ -28,7 +28,7 @@ h: g = foo (); *o = g; if (c) - goto *d; + goto *(void*)d; } } goto *i; diff --git a/gcc/testsuite/gcc.dg/torture/pr90071.c b/gcc/testsuite/gcc.dg/torture/pr90071.c index 702c143..1c4099c 100644 --- a/gcc/testsuite/gcc.dg/torture/pr90071.c +++ b/gcc/testsuite/gcc.dg/torture/pr90071.c @@ -21,6 +21,6 @@ h: ++e; goto i; } f: - goto *({ d || e < 0 || e >= 2; }); + goto *(void*)(__INTPTR_TYPE__)({ d || e < 0 || e >= 2; }); &e; } diff --git a/gcc/testsuite/gcc.dg/tree-ssa/20030714-2.c b/gcc/testsuite/gcc.dg/tree-ssa/20030714-2.c index eb663f2..9585ff1 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/20030714-2.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/20030714-2.c @@ -32,7 +32,8 @@ get_alias_set (t) } } -/* There should be exactly three IF conditionals if we thread jumps - properly. */ -/* { dg-final { scan-tree-dump-times "if " 3 "dom2"} } */ +/* There should be exactly 4 IF conditionals if we thread jumps + properly. There used to be 3, but one thread was crossing + loops. */ +/* { dg-final { scan-tree-dump-times "if " 4 "dom2"} } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-1.c b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-1.c index 5227c87..59663dd 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-1.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-1.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-Ofast -fdump-tree-vrp1" } */ +/* { dg-options "-Ofast -fdump-tree-vrp-thread1" } */ void g (int); void g1 (int); @@ -27,4 +27,4 @@ f (long a, long b, long c, long d, long x) g (a); } -/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-2.c b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-2.c index eaf89bb..0c2f6e0 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-2.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-2.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-Ofast -fdump-tree-vrp1" } */ +/* { dg-options "-Ofast -fdump-tree-vrp-thread1" } */ void g (void); void g1 (void); @@ -20,4 +20,4 @@ f (long a, long b, long c, long d, int x) } } -/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-3.c b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-3.c index d5a1e0b..6a3d359 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-3.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-3.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-Ofast -fdump-tree-vrp1" } */ +/* { dg-options "-Ofast -fdump-tree-vrp-thread1" } */ void g (void); void g1 (void); @@ -22,4 +22,4 @@ f (long a, long b, long c, long d, int x) } } -/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-4.c b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-4.c index 53acabc..9bc4c6d 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-4.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/phi_on_compare-4.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-Ofast -fdump-tree-vrp1" } */ +/* { dg-options "-Ofast -fdump-tree-vrp-thread1" } */ void g (int); void g1 (int); @@ -37,4 +37,4 @@ f (long a, long b, long c, long d, int x) g (c + d); } -/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Removing basic block" 1 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr102546.c b/gcc/testsuite/gcc.dg/tree-ssa/pr102546.c new file mode 100644 index 0000000..4bd9874 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr102546.c @@ -0,0 +1,23 @@ +// { dg-do compile } +// { dg-options "-O3 -fdump-tree-optimized" } + +static int a; +static char b, c, d; +void bar(void); +void foo(void); + +int main() { + int f = 0; + for (; f <= 5; f++) { + bar(); + b = b && f; + d = f << f; + if (!(a >= d || f)) + foo(); + c = 1; + for (; c; c = 0) + ; + } +} + +// { dg-final { scan-tree-dump-not "foo" "optimized" } } diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr102563.c b/gcc/testsuite/gcc.dg/tree-ssa/pr102563.c new file mode 100644 index 0000000..8871dff --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr102563.c @@ -0,0 +1,16 @@ +// { dg-do compile } +// { dg-options "-O2 -w" } + +int _bdf_parse_glyphs_bp; +long _bdf_parse_glyphs_nibbles; + +void _bdf_parse_glyphs_p() +{ + long p_2; + + _bdf_parse_glyphs_nibbles = p_2 << 1; + + for (; 0 < _bdf_parse_glyphs_nibbles;) + if (1 < _bdf_parse_glyphs_nibbles) + _bdf_parse_glyphs_bp = _bdf_parse_glyphs_p; +} diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr21559.c b/gcc/testsuite/gcc.dg/tree-ssa/pr21559.c index b406566..51b3b7a 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr21559.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr21559.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-evrp-details -fdump-tree-vrp1-details" } */ +/* { dg-options "-O2 -fdump-tree-evrp-details -fdump-tree-vrp-thread1-details" } */ static int blocksize = 4096; @@ -39,6 +39,6 @@ void foo (void) statement. We also realize that the final bytes == 0 test is useless, and thread over it. We also know that toread != 0 is useless when entering while loop and thread over it. */ -/* { dg-final { scan-tree-dump-times "Threaded jump" 3 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Threaded jump" 3 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr59597.c b/gcc/testsuite/gcc.dg/tree-ssa/pr59597.c index dab16ab..2caa1f5 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr59597.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr59597.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-Ofast -fdump-tree-vrp1-details" } */ +/* { dg-options "-Ofast -fdump-tree-vrp-thread1-details" } */ typedef unsigned short u16; typedef unsigned char u8; @@ -56,6 +56,11 @@ main (int argc, char argv[]) return crc; } -/* { dg-final { scan-tree-dump-times "Registering jump thread" 3 "vrp1" } } */ -/* { dg-final { scan-tree-dump-not "joiner" "vrp1" } } */ -/* { dg-final { scan-tree-dump-times "Threaded jump" 3 "vrp1" } } */ +/* Previously we had 3 jump threads, but one of them crossed loops. + The reason the old threader was allowing it, was because there was + an ASSERT_EXPR getting in the way. Without the ASSERT_EXPR, we + have an empty pre-header block as the final block in the thread, + which the threader will simply join with the next block which *is* + in a different loop. */ +/* { dg-final { scan-tree-dump-times "Registering jump thread" 2 "vrp-thread1" } } */ +/* { dg-final { scan-tree-dump-not "joiner" "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr61839_1.c b/gcc/testsuite/gcc.dg/tree-ssa/pr61839_1.c index ddc53fb..0229a82 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr61839_1.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr61839_1.c @@ -1,6 +1,6 @@ /* PR tree-optimization/61839. */ /* { dg-do run } */ -/* { dg-options "-O2 -fdump-tree-vrp1 -fdisable-tree-evrp -fdump-tree-optimized -fdisable-tree-ethread -fdisable-tree-thread1" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1 -fdisable-tree-evrp -fdump-tree-optimized -fdisable-tree-ethread -fdisable-tree-thread1" } */ /* { dg-require-effective-target int32plus } */ __attribute__ ((noinline)) @@ -38,7 +38,11 @@ int main () } /* Scan for c = 972195717) >> [0, 1] in function foo. */ -/* { dg-final { scan-tree-dump-times "486097858 : 972195717" 1 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "486097858 : 972195717" 1 "vrp-thread1" } } */ + +/* Previously we were checking for two ?: with constant PHI arguments, + but now we collapse them into one. */ /* Scan for c = 972195717) >> [2, 3] in function bar. */ -/* { dg-final { scan-tree-dump-times "243048929 : 121524464" 2 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "243048929 : 121524464" 1 "vrp-thread1" } } */ + /* { dg-final { scan-tree-dump-times "486097858" 0 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr61839_3.c b/gcc/testsuite/gcc.dg/tree-ssa/pr61839_3.c index cc322d6..7be1873 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr61839_3.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr61839_3.c @@ -1,6 +1,6 @@ /* PR tree-optimization/61839. */ /* { dg-do run } */ -/* { dg-options "-O2 -fdump-tree-vrp1 -fdump-tree-optimized -fdisable-tree-ethread -fdisable-tree-thread1" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1 -fdump-tree-optimized -fdisable-tree-ethread -fdisable-tree-thread1" } */ __attribute__ ((noinline)) int foo (int a, unsigned b) @@ -22,5 +22,5 @@ int main () } /* Scan for c [12, 13] << 8 in function foo. */ -/* { dg-final { scan-tree-dump-times "3072 : 3328" 2 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "3072 : 3328" 1 "vrp-thread1" } } */ /* { dg-final { scan-tree-dump-times "3072" 0 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr66752-3.c b/gcc/testsuite/gcc.dg/tree-ssa/pr66752-3.c index e1464e2..ba7025a 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr66752-3.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr66752-3.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-thread1-details -fdump-tree-dce2" } */ +/* { dg-options "-O2 -fdump-tree-thread1-details -fdump-tree-thread4" } */ extern int status, pt; extern int count; @@ -32,10 +32,15 @@ foo (int N, int c, int b, int *a) pt--; } -/* There are 4 jump threading opportunities, all of which will be - realized, which will eliminate testing of FLAG, completely. */ -/* { dg-final { scan-tree-dump-times "Registering jump" 4 "thread1"} } */ +/* There are 2 jump threading opportunities (which don't cross loops), + all of which will be realized, which will eliminate testing of + FLAG, completely. */ +/* { dg-final { scan-tree-dump-times "Registering jump" 2 "thread1"} } */ -/* There should be no assignments or references to FLAG, verify they're - eliminated as early as possible. */ -/* { dg-final { scan-tree-dump-not "if .flag" "dce2"} } */ +/* We used to remove references to FLAG by DCE2, but this was + depending on early threaders threading through loop boundaries + (which we shouldn't do). However, the late threading passes, which + run after loop optimizations , can successfully eliminate the + references to FLAG. Verify that ther are no references by the late + threading passes. */ +/* { dg-final { scan-tree-dump-not "if .flag" "thread4"} } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr71437.c b/gcc/testsuite/gcc.dg/tree-ssa/pr71437.c index 66a5405..a2386ba 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr71437.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr71437.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-ffast-math -O3 -fdump-tree-vrp1-details" } */ +/* { dg-options "-ffast-math -O3 -fdump-tree-vrp-thread1-details" } */ int I = 50, J = 50; int S, L; @@ -39,4 +39,4 @@ void foo (int K) bar (LD, SD); } } -/* { dg-final { scan-tree-dump-times "Threaded jump " 2 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Threaded jump " 2 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr77445-2.c b/gcc/testsuite/gcc.dg/tree-ssa/pr77445-2.c index f9fc212..18f7aab 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/pr77445-2.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr77445-2.c @@ -123,8 +123,8 @@ enum STATES FMS( u8 **in , u32 *transitions) { aarch64 has the highest CASE_VALUES_THRESHOLD in GCC. It's high enough to change decisions in switch expansion which in turn can expose new jump threading opportunities. Skip the later tests on aarch64. */ -/* { dg-final { scan-tree-dump "Jumps threaded: 1\[1-9\]" "thread1" } } */ -/* { dg-final { scan-tree-dump-times "Invalid sum" 4 "thread1" } } */ +/* { dg-final { scan-tree-dump "Jumps threaded: \[7-9\]" "thread1" } } */ +/* { dg-final { scan-tree-dump-times "Invalid sum" 1 "thread1" } } */ /* { dg-final { scan-tree-dump-not "optimizing for size" "thread1" } } */ /* { dg-final { scan-tree-dump-not "optimizing for size" "thread2" } } */ /* { dg-final { scan-tree-dump-not "optimizing for size" "thread3" { target { ! aarch64*-*-* } } } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/pr99793.c b/gcc/testsuite/gcc.dg/tree-ssa/pr99793.c new file mode 100644 index 0000000..9127449 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/pr99793.c @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-options "-O -fstrict-aliasing -fdump-tree-optimized" } */ + +extern void foo(void); +static int a, *b = &a, c, *d = &c; +int main() +{ + int **e = &d; + if (!((unsigned)((*e = d) == 0) - (*b = 1))) + foo(); + return 0; +} + +/* { dg-final { scan-tree-dump-not "foo" "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-46.c b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-46.c new file mode 100644 index 0000000..97563dd --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-46.c @@ -0,0 +1,7 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized -ftree-vectorize" } */ + +#include "reassoc-46.h" + +/* Check that the loop accumulator is added last. */ +/* { dg-final { scan-tree-dump-times {(?:vect_)?sum_[\d._]+ = (?:(?:vect_)?_[\d._]+ \+ (?:vect_)?sum_[\d._]+|(?:vect_)?sum_[\d._]+ \+ (?:vect_)?_[\d._]+)} 1 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-46.h b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-46.h new file mode 100644 index 0000000..e60b490 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-46.h @@ -0,0 +1,33 @@ +#define M 1024 +unsigned int arr1[M]; +unsigned int arr2[M]; +volatile unsigned int sink; + +unsigned int +test (void) +{ + unsigned int sum = 0; + for (int i = 0; i < M; i++) + { +#ifdef MODIFY + /* Modify the loop accumulator using a chain of operations - this should + not affect its rank biasing. */ + sum |= 1; + sum ^= 2; +#endif +#ifdef STORE + /* Save the loop accumulator into a global variable - this should not + affect its rank biasing. */ + sink = sum; +#endif +#ifdef USE + /* Add a tricky use of the loop accumulator - this should prevent its + rank biasing. */ + i = (i + sum) % M; +#endif + /* Use addends with different ranks. */ + sum += arr1[i]; + sum += arr2[((i ^ 1) + 1) % M]; + } + return sum; +} diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-47.c b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-47.c new file mode 100644 index 0000000..1b0f0fd --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-47.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized -ftree-vectorize" } */ + +#define MODIFY +#include "reassoc-46.h" + +/* Check that if the loop accumulator is saved into a global variable, it's + still added last. */ +/* { dg-final { scan-tree-dump-times {(?:vect_)?sum_[\d._]+ = (?:(?:vect_)?_[\d._]+ \+ (?:vect_)?sum_[\d._]+|(?:vect_)?sum_[\d._]+ \+ (?:vect_)?_[\d._]+)} 1 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-48.c b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-48.c new file mode 100644 index 0000000..13836eb --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-48.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized -ftree-vectorize" } */ + +#define STORE +#include "reassoc-46.h" + +/* Check that if the loop accumulator is modified using a chain of operations + other than addition, its new value is still added last. */ +/* { dg-final { scan-tree-dump-times {(?:vect_)?sum_[\d._]+ = (?:(?:vect_)?_[\d._]+ \+ (?:vect_)?sum_[\d._]+|(?:vect_)?sum_[\d._]+ \+ (?:vect_)?_[\d._]+)} 1 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-49.c b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-49.c new file mode 100644 index 0000000..c1136a4 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-49.c @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized -ftree-vectorize" } */ + +#define MODIFY +#define STORE +#include "reassoc-46.h" + +/* Check that if the loop accumulator is both modified using a chain of + operations other than addition and stored into a global variable, its new + value is still added last. */ +/* { dg-final { scan-tree-dump-times {(?:vect_)?sum_[\d._]+ = (?:(?:vect_)?_[\d._]+ \+ (?:vect_)?sum_[\d._]+|(?:vect_)?sum_[\d._]+ \+ (?:vect_)?_[\d._]+)} 1 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-50.c b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-50.c new file mode 100644 index 0000000..e35a4ff --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-50.c @@ -0,0 +1,10 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized -ftree-vectorize" } */ + +#define MODIFY +#define USE +#include "reassoc-46.h" + +/* Check that if the loop accumulator has multiple uses inside the loop, it's + not forced to the end of the reassociation chain. */ +/* { dg-final { scan-tree-dump-times {(?:vect_)?sum_[\d._]+ = (?:(?:vect_)?_[\d._]+ \+ (?:vect_)?sum_[\d._]+|(?:vect_)?sum_[\d._]+ \+ (?:vect_)?_[\d._]+)} 2 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/reassoc-51.c b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-51.c new file mode 100644 index 0000000..0717567 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/reassoc-51.c @@ -0,0 +1,11 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-optimized -ftree-vectorize" } */ + +#define MODIFY +#define STORE +#define USE +#include "reassoc-46.h" + +/* Check that if the loop accumulator has multiple uses inside the loop, it's + not forced to the end of the reassociation chain. */ +/* { dg-final { scan-tree-dump-times {(?:vect_)?sum_[\d._]+ = (?:(?:vect_)?_[\d._]+ \+ (?:vect_)?sum_[\d._]+|(?:vect_)?sum_[\d._]+ \+ (?:vect_)?_[\d._]+)} 2 "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-11.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-11.c index 856ab38..73969bb 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-11.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-11.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-dom2-details --param logical-op-non-short-circuit=1 -fdisable-tree-thread1 -fdisable-tree-thread2" } */ +/* { dg-options "-O2 -fdump-tree-dom2-details --param logical-op-non-short-circuit=1 -fdisable-tree-thread1 -fdisable-tree-thread2 -fdisable-tree-vrp-thread1 " } */ static int *bb_ticks; extern void frob (void); diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-14.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-14.c index 3bc4b37..a25fe8b 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-14.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-14.c @@ -37,5 +37,5 @@ expand_shift_1 (int code, int unsignedp, int rotate, we will enter the TRUE arm of the conditional and we can thread the test to compute the first first argument of the expand_binop call if we look backwards through the boolean logicals. */ -/* { dg-final { scan-tree-dump-times "Threaded" 1 "dom2"} } */ +/* { dg-final { scan-tree-dump-times "Threaded" 2 "dom2"} } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-16.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-16.c index ffbdc98..1b677f4 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-16.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-16.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-dom2-details -w --param logical-op-non-short-circuit=1" } */ +/* { dg-options "-O2 -fdump-tree-dom2-details -w --param logical-op-non-short-circuit=1 -fdisable-tree-vrp-thread1" } */ unsigned char validate_subreg (unsigned int offset, unsigned int isize, unsigned int osize, int zz, int qq) { diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-18.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-18.c index 60d4f76..0246ebf 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-18.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-18.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-vrp1-details -fdump-tree-thread1-details -std=gnu89 --param logical-op-non-short-circuit=0" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1-details -std=gnu89 --param logical-op-non-short-circuit=0" } */ #include "ssa-dom-thread-4.c" @@ -21,5 +21,7 @@ condition. All the cases are picked up by VRP1 as jump threads. */ -/* { dg-final { scan-tree-dump-times "Registering jump" 6 "thread1" } } */ -/* { dg-final { scan-tree-dump-times "Threaded" 2 "vrp1" } } */ + +/* There used to be 6 jump threads found by thread1, but they all + depended on threading through distinct loops in ethread. */ +/* { dg-final { scan-tree-dump-times "Threaded" 2 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-2a.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-2a.c index b972f64..8f0a12c 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-2a.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-2a.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-vrp1-stats -fdump-tree-dom2-stats" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1-stats -fdump-tree-dom2-stats" } */ void bla(); @@ -16,6 +16,6 @@ void thread_entry_through_header (void) /* There's a single jump thread that should be handled by the VRP jump threading pass. */ -/* { dg-final { scan-tree-dump-times "Jumps threaded: 1" 1 "vrp1"} } */ -/* { dg-final { scan-tree-dump-times "Jumps threaded: 2" 0 "vrp1"} } */ +/* { dg-final { scan-tree-dump-times "Jumps threaded: 1" 1 "vrp-thread1"} } */ +/* { dg-final { scan-tree-dump-times "Jumps threaded: 2" 0 "vrp-thread1"} } */ /* { dg-final { scan-tree-dump-not "Jumps threaded" "dom2"} } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-4.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-4.c index 521754f..46e464f 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-4.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-4.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-vrp1-details -fdump-tree-dom2-details -std=gnu89 --param logical-op-non-short-circuit=1" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1-details -fdump-tree-dom2-details -std=gnu89 --param logical-op-non-short-circuit=1" } */ struct bitmap_head_def; typedef struct bitmap_head_def *bitmap; typedef const struct bitmap_head_def *const_bitmap; @@ -58,4 +58,5 @@ bitmap_ior_and_compl (bitmap dst, const_bitmap a, const_bitmap b, code we missed the edge when the first conditional is false (b_elt is zero, which means the second conditional is always zero. VRP1 catches all three. */ -/* { dg-final { scan-tree-dump-times "Threaded" 3 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Registering jump thread" 2 "vrp-thread1" } } */ +/* { dg-final { scan-tree-dump-times "Path crosses loops" 1 "vrp-thread1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-7.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-7.c index e3d4b31..16abcde 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-7.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-dom-thread-7.c @@ -1,8 +1,8 @@ /* { dg-do compile } */ /* { dg-options "-O2 -fdump-tree-thread1-stats -fdump-tree-thread2-stats -fdump-tree-dom2-stats -fdump-tree-thread3-stats -fdump-tree-dom3-stats -fdump-tree-vrp2-stats -fno-guess-branch-probability" } */ -/* { dg-final { scan-tree-dump "Jumps threaded: 18" "thread1" } } */ -/* { dg-final { scan-tree-dump "Jumps threaded: 8" "thread3" { target { ! aarch64*-*-* } } } } */ +/* { dg-final { scan-tree-dump "Jumps threaded: 12" "thread1" } } */ +/* { dg-final { scan-tree-dump "Jumps threaded: 5" "thread3" { target { ! aarch64*-*-* } } } } */ /* { dg-final { scan-tree-dump-not "Jumps threaded" "dom2" } } */ /* aarch64 has the highest CASE_VALUES_THRESHOLD in GCC. It's high enough diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-fre-95.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-fre-95.c new file mode 100644 index 0000000..b0936be --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-fre-95.c @@ -0,0 +1,25 @@ +/* PR100112 and dups. */ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-fre1-details -fdump-tree-optimized" } */ + +int *c, *b; +void foo() +{ + int *tem = b; + *tem = 0; + int *footem = c; + c = footem; +} + +void bar() +{ + int *tem = b; + int *bartem = c; + *tem = 0; + c = bartem; +} + +/* We should elide the redundant store in foo, in bar it is not redundant since + the *tem = 0 store might alias. */ +/* { dg-final { scan-tree-dump "Deleted redundant store c = footem" "fre1" } } */ +/* { dg-final { scan-tree-dump "c = bartem" "optimized" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-fre-96.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-fre-96.c new file mode 100644 index 0000000..fd1d571 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-fre-96.c @@ -0,0 +1,14 @@ +/* { dg-do compile } */ +/* { dg-options "-O -fdump-tree-fre1" } */ + +_Bool f1(unsigned x, unsigned y, unsigned *res) +{ + _Bool t = __builtin_add_overflow(x, y, res); + unsigned res1; + _Bool t1 = __builtin_add_overflow(x, y, &res1); + *res -= res1; + return t==t1; +} + +/* { dg-final { scan-tree-dump-times "ADD_OVERFLOW" 1 "fre1" } } */ +/* { dg-final { scan-tree-dump "return 1;" "fre1" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-pre-33.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-pre-33.c new file mode 100644 index 0000000..3b3bd62 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-pre-33.c @@ -0,0 +1,15 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -fdump-tree-pre" } */ + +_Bool f1(unsigned x, unsigned y, unsigned *res, int flag, _Bool *t) +{ + if (flag) + *t = __builtin_add_overflow(x, y, res); + unsigned res1; + _Bool t1 = __builtin_add_overflow(x, y, &res1); + *res -= res1; + return *t==t1; +} + +/* We should hoist the .ADD_OVERFLOW to before the check. */ +/* { dg-final { scan-tree-dump-times "ADD_OVERFLOW" 1 "pre" } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-14.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-14.c index f9152b9..8c5cc82 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-14.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-14.c @@ -1,7 +1,7 @@ /* { dg-do compile } */ -/* { dg-additional-options "-O2 -fdump-tree-vrp-details --param logical-op-non-short-circuit=1" } */ +/* { dg-additional-options "-O2 -fdump-tree-vrp-thread1-details --param logical-op-non-short-circuit=1" } */ /* { dg-additional-options "-fdisable-tree-thread1" } */ -/* { dg-final { scan-tree-dump-times "Threaded jump" 8 "vrp1" } } */ +/* { dg-final { scan-tree-dump-times "Threaded jump" 8 "vrp-thread1" } } */ void foo (void); void bar (void); diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-valid.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-valid.c new file mode 100644 index 0000000..7adca97 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-thread-valid.c @@ -0,0 +1,39 @@ +// { dg-do compile } +// { dg-options "-O2 -fgimple -fdump-statistics" } + +// This is a collection of threadable paths. To simplify maintenance, +// there should only be one threadable path per function. + +int global; + +// The thread from 3->4->5 crosses loops but is allowed because it +// never crosses the latch (BB3) and is just an early exit out of the +// loop. +int __GIMPLE (ssa) +foo1 (int x) +{ + int D_1420; + int a; + + __BB(2): + a_4 = ~x_3(D); + goto __BB4; + + // Latch. + __BB(3): + global = a_1; + goto __BB4; + + __BB(4,loop_header(1)): + a_1 = __PHI (__BB2: a_4, __BB3: 0); + if (a_1 != 0) + goto __BB3; + else + goto __BB5; + + __BB(5): + return; + +} + +// { dg-final { scan-tree-dump "Jumps threaded\" \"foo1\" 1" "statistics" } } diff --git a/gcc/testsuite/gcc.dg/tree-ssa/ssa-vrp-thread-1.c b/gcc/testsuite/gcc.dg/tree-ssa/ssa-vrp-thread-1.c index ef5611f..86d07ef 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/ssa-vrp-thread-1.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/ssa-vrp-thread-1.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-vrp1-details -fdelete-null-pointer-checks" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1-details -fdelete-null-pointer-checks" } */ /* { dg-skip-if "" keeps_null_pointer_checks } */ void oof (void); @@ -29,5 +29,5 @@ build_omp_regions_1 (basic_block bb, struct omp_region *parent, /* ARM Cortex-M defined LOGICAL_OP_NON_SHORT_CIRCUIT to false, so skip below test. */ -/* { dg-final { scan-tree-dump-times "Threaded" 1 "vrp1" { target { ! arm_cortex_m } } } } */ +/* { dg-final { scan-tree-dump-times "Threaded" 1 "vrp-thread1" { target { ! arm_cortex_m } } } } */ diff --git a/gcc/testsuite/gcc.dg/tree-ssa/vrp106.c b/gcc/testsuite/gcc.dg/tree-ssa/vrp106.c index e2e48d8..f25ea9c 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/vrp106.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/vrp106.c @@ -1,6 +1,6 @@ /* PR tree-optimization/18046 */ -/* { dg-options "-O2 -fdump-tree-vrp1-details" } */ -/* { dg-final { scan-tree-dump-times "Threaded jump" 1 "vrp1" } } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1-details" } */ +/* { dg-final { scan-tree-dump-times "Threaded jump" 1 "vrp-thread1" } } */ /* During VRP we expect to thread the true arm of the conditional through the switch and to the BB that corresponds to the 7 ... 9 case label. */ extern void foo (void); diff --git a/gcc/testsuite/gcc.dg/tree-ssa/vrp55.c b/gcc/testsuite/gcc.dg/tree-ssa/vrp55.c index 8ae9b8d..a478a69 100644 --- a/gcc/testsuite/gcc.dg/tree-ssa/vrp55.c +++ b/gcc/testsuite/gcc.dg/tree-ssa/vrp55.c @@ -1,5 +1,5 @@ /* { dg-do compile } */ -/* { dg-options "-O2 -fdump-tree-vrp1-blocks-vops-details -fdelete-null-pointer-checks" } */ +/* { dg-options "-O2 -fdump-tree-vrp-thread1-blocks-vops-details -fdelete-null-pointer-checks" } */ void arf (void); @@ -12,6 +12,6 @@ fu (char *p, int x) arf (); } -/* { dg-final { scan-tree-dump-times "Threaded jump" 1 "vrp1" { target { ! keeps_null_pointer_checks } } } } */ -/* { dg-final { scan-tree-dump-times "Threaded jump" 0 "vrp1" { target { keeps_null_pointer_checks } } } } */ +/* { dg-final { scan-tree-dump-times "Threaded jump" 1 "vrp-thread1" { target { ! keeps_null_pointer_checks } } } } */ +/* { dg-final { scan-tree-dump-times "Threaded jump" 0 "vrp-thread1" { target { keeps_null_pointer_checks } } } } */ diff --git a/gcc/testsuite/gcc.dg/vect/bb-slp-16.c b/gcc/testsuite/gcc.dg/vect/bb-slp-16.c index 664e93e..e68a9b6 100644 --- a/gcc/testsuite/gcc.dg/vect/bb-slp-16.c +++ b/gcc/testsuite/gcc.dg/vect/bb-slp-16.c @@ -1,8 +1,5 @@ /* { dg-require-effective-target vect_int } */ -/* See note below as to why we disable threading. */ -/* { dg-additional-options "-fdisable-tree-thread1" } */ - #include <stdarg.h> #include "tree-vect.h" @@ -30,10 +27,6 @@ main1 (int dummy) *pout++ = *pin++ + a; *pout++ = *pin++ + a; *pout++ = *pin++ + a; - /* In some architectures like ppc64, jump threading may thread - the iteration where i==0 such that we no longer optimize the - BB. Another alternative to disable jump threading would be - to wrap the read from `i' into a function returning i. */ if (arr[i] = i) a = i; else diff --git a/gcc/testsuite/gcc.dg/vect/bb-slp-pr65935.c b/gcc/testsuite/gcc.dg/vect/bb-slp-pr65935.c index 5d80f56..ee12136 100644 --- a/gcc/testsuite/gcc.dg/vect/bb-slp-pr65935.c +++ b/gcc/testsuite/gcc.dg/vect/bb-slp-pr65935.c @@ -1,5 +1,6 @@ /* { dg-additional-options "-O3" } */ /* { dg-require-effective-target vect_double } */ +/* { dg-additional-options "-mprefer-vector-width=128" { target x86_64-*-* i?86-*-* } } */ #include "tree-vect.h" diff --git a/gcc/testsuite/gcc.dg/vect/bb-slp-pr97709.c b/gcc/testsuite/gcc.dg/vect/bb-slp-pr97709.c index 672807f..56ec0f6 100644 --- a/gcc/testsuite/gcc.dg/vect/bb-slp-pr97709.c +++ b/gcc/testsuite/gcc.dg/vect/bb-slp-pr97709.c @@ -12,12 +12,12 @@ e() void *f[] = {&&g, &&h, &&i, &&j}; int d, c; j: - goto *a; + goto *(void*)(__INTPTR_TYPE__)a; g: d = 0; h: c = 1; - goto *a; + goto *(void*)(__INTPTR_TYPE__)a; i: { struct b b = {c, d}; diff --git a/gcc/testsuite/gcc.target/aarch64/cpymem-size.c b/gcc/testsuite/gcc.target/aarch64/cpymem-size.c new file mode 100644 index 0000000..4a6f249 --- /dev/null +++ b/gcc/testsuite/gcc.target/aarch64/cpymem-size.c @@ -0,0 +1,29 @@ +/* { dg-do compile } */ +/* { dg-options "-Os" } */ + +#include <stdlib.h> + +/* +** cpy_127: +** mov (w|x)2, 127 +** b memcpy +*/ +void +cpy_127 (char *out, char *in) +{ + __builtin_memcpy (out, in, 127); +} + +/* +** cpy_128: +** mov (w|x)2, 128 +** b memcpy +*/ +void +cpy_128 (char *out, char *in) +{ + __builtin_memcpy (out, in, 128); +} + +/* { dg-final { check-function-bodies "**" "" "" } } */ + diff --git a/gcc/testsuite/gcc.target/aarch64/memset-corner-cases-2.c b/gcc/testsuite/gcc.target/aarch64/memset-corner-cases-2.c new file mode 100644 index 0000000..9ee96f3 --- /dev/null +++ b/gcc/testsuite/gcc.target/aarch64/memset-corner-cases-2.c @@ -0,0 +1,30 @@ +/* { dg-do compile } */ +/* { dg-options "-Os" } */ +/* { dg-require-effective-target lp64 } */ + +#include <stdint.h> + +/* 127 bytes should use libcall for size. +**set127byte: +** mov x2, 127 +** b memset +*/ +void __attribute__((__noinline__)) +set127byte (int64_t *src, int c) +{ + __builtin_memset (src, c, 127); +} + +/* 128 bytes should use libcall for size. +**set128byte: +** mov x2, 128 +** b memset +*/ +void __attribute__((__noinline__)) +set128byte (int64_t *src, int c) +{ + __builtin_memset (src, c, 128); +} + +/* { dg-final { check-function-bodies "**" "" "" } } */ + diff --git a/gcc/testsuite/gcc.target/aarch64/memset-strict-align-1.c b/gcc/testsuite/gcc.target/aarch64/memset-strict-align-1.c index 5cdc8a4..664d43a 100644 --- a/gcc/testsuite/gcc.target/aarch64/memset-strict-align-1.c +++ b/gcc/testsuite/gcc.target/aarch64/memset-strict-align-1.c @@ -1,14 +1,14 @@ /* { dg-do compile } */ -/* { dg-options "-Os -mstrict-align" } */ +/* { dg-options "-O2 -mstrict-align" } */ -struct s { char x[95]; }; +struct s { char x[255]; }; void foo (struct s *); void bar (void) { struct s s1 = {}; foo (&s1); } -/* memset (s1 = {}, sizeof = 95) should be expanded out +/* memset (s1 = {}, sizeof = 255) should be expanded out such that there are no overlap stores when -mstrict-align is in use. - so 2 pair 16 bytes stores (64 bytes). + so 7 pairs of 16 bytes stores (224 bytes). 1 16 byte stores 1 8 byte store 1 4 byte store @@ -16,7 +16,7 @@ void bar (void) { struct s s1 = {}; foo (&s1); } 1 1 byte store */ -/* { dg-final { scan-assembler-times "stp\tq" 2 } } */ +/* { dg-final { scan-assembler-times "stp\tq" 7 } } */ /* { dg-final { scan-assembler-times "str\tq" 1 } } */ /* { dg-final { scan-assembler-times "str\txzr" 1 } } */ /* { dg-final { scan-assembler-times "str\twzr" 1 } } */ diff --git a/gcc/testsuite/gcc.target/aarch64/sve/pr102587-1.c b/gcc/testsuite/gcc.target/aarch64/sve/pr102587-1.c new file mode 100644 index 0000000..af2ae59 --- /dev/null +++ b/gcc/testsuite/gcc.target/aarch64/sve/pr102587-1.c @@ -0,0 +1,4 @@ +/* { dg-do compile } */ +/* { dg-options "-march=armv8.3-a+sve -ftrivial-auto-var-init=zero" } */ + +void foo() { __SVFloat64_t f64; } diff --git a/gcc/testsuite/gcc.target/aarch64/sve/pr102587-2.c b/gcc/testsuite/gcc.target/aarch64/sve/pr102587-2.c new file mode 100644 index 0000000..8c9d9908 --- /dev/null +++ b/gcc/testsuite/gcc.target/aarch64/sve/pr102587-2.c @@ -0,0 +1,4 @@ +/* { dg-do compile } */ +/* { dg-options "-march=armv8.3-a+sve -ftrivial-auto-var-init=pattern" } */ + +void foo() { __SVFloat64_t f64; } diff --git a/gcc/testsuite/gcc.target/i386/attr-optimize.c b/gcc/testsuite/gcc.target/i386/attr-optimize.c new file mode 100644 index 0000000..f5db028f --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/attr-optimize.c @@ -0,0 +1,24 @@ +/* { dg-do compile } */ +/* { dg-additional-options "-O1 -ftree-slp-vectorize -march=znver1 -fdump-tree-optimized" } */ + +/* Use -O2, but -ftree-slp-vectorize option should be preserved and used. */ +#pragma GCC optimize "-O2" + +typedef struct { + long n[4]; +} secp256k1_fe; + +void *a; +int c; +static void +fn1(secp256k1_fe *p1, int p2) +{ + p1->n[0] = p1->n[1] = p2; +} +void +fn2() +{ + fn1(a, !c); +} + +/* { dg-final { scan-tree-dump { MEM <vector\(2\) long int> \[[^]]*\] = } "optimized" } } */ diff --git a/gcc/testsuite/gcc.target/i386/auto-init-2.c b/gcc/testsuite/gcc.target/i386/auto-init-2.c index b23f733..e22930a 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-2.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-2.c @@ -33,6 +33,5 @@ void foo() /* { dg-final { scan-rtl-dump-times "0xfffffffffffffefe" 1 "expand" } } */ /* { dg-final { scan-rtl-dump-times "0xfffffffffefefefe" 2 "expand" { target lp64 } } } */ /* { dg-final { scan-rtl-dump-times "0xfefefefefefefefe" 3 "expand" { target lp64 } } } */ -/* { dg-final { scan-rtl-dump-times "0xfffffffffefefefe" 4 "expand" { target ia32 } } } */ -/* { dg-final { scan-rtl-dump-times "0xfefefefefefefefe" 1 "expand" { target ia32 } } } */ - +/* { dg-final { scan-rtl-dump-times "0xfffffffffefefefe" 4 "expand" { target { ! lp64 } } } } */ +/* { dg-final { scan-rtl-dump-times "0xfefefefefefefefe" 1 "expand" { target { ! lp64 } } } } */ diff --git a/gcc/testsuite/gcc.target/i386/auto-init-3.c b/gcc/testsuite/gcc.target/i386/auto-init-3.c index df31761..891eab1 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-3.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-3.c @@ -1,6 +1,7 @@ /* Verify zero initialization for floating point type automatic variables. */ /* { dg-do compile } */ -/* { dg-options "-ftrivial-auto-var-init=zero -march=x86-64 -mtune=generic" } */ +/* { dg-options "-ftrivial-auto-var-init=zero -march=x86-64 -mtune=generic -msse" } */ +/* { dg-additional-options "-mfpmath=387" { target ia32 } } */ long double result; @@ -14,5 +15,5 @@ long double foo() return result; } -/* { dg-final { scan-assembler-times "pxor\t\\\%xmm0, \\\%xmm0" 3 { target lp64 } } } */ -/* { dg-final { scan-assembler-times "fldz" 3 { target ia32} } } */ +/* { dg-final { scan-assembler-times "pxor\t\\\%xmm0, \\\%xmm0" 3 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "fldz" 3 { target ia32 } } } */ diff --git a/gcc/testsuite/gcc.target/i386/auto-init-4.c b/gcc/testsuite/gcc.target/i386/auto-init-4.c index 554a2c5..7b46c74 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-4.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-4.c @@ -14,9 +14,8 @@ long double foo() return result; } -/* { dg-final { scan-rtl-dump-times "0xfffffffffefefefe" 1 "expand" { target lp64 } } } */ -/* { dg-final { scan-rtl-dump-times "\\\[0xfefefefefefefefe\\\]" 1 "expand" { target lp64 } } } */ -/* { dg-final { scan-rtl-dump-times "0xfffffffffffffffe\\\]\\\) repeated x16" 1 "expand" { target lp64 } } } */ +/* { dg-final { scan-rtl-dump-times "0xfffffffffefefefe" 1 "expand" { target { ! ia32 } } } } */ +/* { dg-final { scan-rtl-dump-times "\\\[0xfefefefefefefefe\\\]" 1 "expand" { target { ! ia32 } } } } */ +/* { dg-final { scan-rtl-dump-times "0xfffffffffffffffe\\\]\\\) repeated x16" 1 "expand" { target { ! ia32 } } } } */ /* { dg-final { scan-rtl-dump-times "0xfffffffffefefefe" 2 "expand" { target ia32 } } } */ /* { dg-final { scan-rtl-dump-times "\\\[0xfefefefefefefefe\\\]" 2 "expand" { target ia32 } } } */ - diff --git a/gcc/testsuite/gcc.target/i386/auto-init-5.c b/gcc/testsuite/gcc.target/i386/auto-init-5.c index 27d971f..0e9d74f 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-5.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-5.c @@ -15,7 +15,5 @@ _Complex long double foo() return result; } -/* { dg-final { scan-assembler-times "\\.long\t0" 14 { target lp64 } } } */ +/* { dg-final { scan-assembler-times "\\.long\t0" 14 { target { ! ia32 } } } } */ /* { dg-final { scan-assembler-times "\\.long\t0" 12 { target ia32 } } } */ - - diff --git a/gcc/testsuite/gcc.target/i386/auto-init-padding-3.c b/gcc/testsuite/gcc.target/i386/auto-init-padding-3.c index 220a9f2..7c20a28 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-padding-3.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-padding-3.c @@ -24,9 +24,7 @@ int foo () } /* { dg-final { scan-assembler "movl\t\\\$0," } } */ -/* { dg-final { scan-assembler "movl\t\\\$16," { target lp64 } } } */ -/* { dg-final { scan-assembler "rep stosq" { target lp64 } } } */ +/* { dg-final { scan-assembler "movl\t\\\$16," { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler "rep stosq" { target { ! ia32 } } } } */ /* { dg-final { scan-assembler "movl\t\\\$32," { target ia32 } } } */ /* { dg-final { scan-assembler "rep stosl" { target ia32 } } } */ - - diff --git a/gcc/testsuite/gcc.target/i386/auto-init-padding-7.c b/gcc/testsuite/gcc.target/i386/auto-init-padding-7.c index c136e1c..c3823de 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-padding-7.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-padding-7.c @@ -18,6 +18,4 @@ int foo () } /* { dg-final { scan-rtl-dump-times "const_int 0 \\\[0\\\]\\\) repeated x16" 1 "expand" { target ia32 } } } */ -/* { dg-final { scan-rtl-dump-times "const_int 0 \\\[0\\\]\\\)" 1 "expand" { target lp64 } } } */ - - +/* { dg-final { scan-rtl-dump-times "const_int 0 \\\[0\\\]\\\)" 1 "expand" { target { ! ia32 } } } } */ diff --git a/gcc/testsuite/gcc.target/i386/auto-init-padding-8.c b/gcc/testsuite/gcc.target/i386/auto-init-padding-8.c index 45baa3c..4f45755 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-padding-8.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-padding-8.c @@ -18,4 +18,4 @@ int foo () } /* { dg-final { scan-rtl-dump-times "const_int 0 \\\[0\\\]\\\) repeated x16" 1 "expand" { target ia32 } } } */ -/* { dg-final { scan-rtl-dump-times "const_int 0 \\\[0\\\]\\\)" 1 "expand" { target lp64 } } } */ +/* { dg-final { scan-rtl-dump-times "const_int 0 \\\[0\\\]\\\)" 1 "expand" { target { ! ia32 } } } } */ diff --git a/gcc/testsuite/gcc.target/i386/auto-init-padding-9.c b/gcc/testsuite/gcc.target/i386/auto-init-padding-9.c index eafa327..a87b68b 100644 --- a/gcc/testsuite/gcc.target/i386/auto-init-padding-9.c +++ b/gcc/testsuite/gcc.target/i386/auto-init-padding-9.c @@ -19,7 +19,7 @@ int foo () } /* { dg-final { scan-assembler "movl\t\\\$0," } } */ -/* { dg-final { scan-assembler "movl\t\\\$20," { target lp64} } } */ -/* { dg-final { scan-assembler "rep stosq" { target lp64 } } } */ +/* { dg-final { scan-assembler "movl\t\\\$20," { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler "rep stosq" { target { ! ia32 } } } } */ /* { dg-final { scan-assembler "movl\t\\\$40," { target ia32} } } */ /* { dg-final { scan-assembler "rep stosl" { target ia32 } } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx-1.c b/gcc/testsuite/gcc.target/i386/avx-1.c index a04c678..8744aa7 100644 --- a/gcc/testsuite/gcc.target/i386/avx-1.c +++ b/gcc/testsuite/gcc.target/i386/avx-1.c @@ -787,6 +787,26 @@ #define __builtin_ia32_vfnmsubsh3_mask(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_mask(A, B, C, D, 8) #define __builtin_ia32_vfnmsubsh3_mask3(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_mask3(A, B, C, D, 8) #define __builtin_ia32_vfnmsubsh3_maskz(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_maskz(A, B, C, D, 8) +#define __builtin_ia32_vfcmaddcph512_round(A, B, C, D) __builtin_ia32_vfcmaddcph512_round(A, B, C, 8) +#define __builtin_ia32_vfcmaddcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfcmaddcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmaddcph512_maskz_round(B, C, D, A, E) __builtin_ia32_vfcmaddcph512_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmaddcph512_round(A, B, C, D) __builtin_ia32_vfmaddcph512_round(A, B, C, 8) +#define __builtin_ia32_vfmaddcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfmaddcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcph512_maskz_round(B, C, D, A, E) __builtin_ia32_vfmaddcph512_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmulcph512_round(A, B, C) __builtin_ia32_vfmulcph512_round(A, B, 8) +#define __builtin_ia32_vfmulcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfmulcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmulcph512_round(A, B, C) __builtin_ia32_vfcmulcph512_round(A, B, 8) +#define __builtin_ia32_vfcmulcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfcmulcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcsh_round(A, B, C, D) __builtin_ia32_vfmaddcsh_round(A, B, C, 8) +#define __builtin_ia32_vfmaddcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfmaddcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcsh_maskz_round(B, C, D, A, E) __builtin_ia32_vfmaddcsh_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfcmaddcsh_round(A, B, C, D) __builtin_ia32_vfcmaddcsh_round(A, B, C, 8) +#define __builtin_ia32_vfcmaddcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfcmaddcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmaddcsh_maskz_round(B, C, D, A, E) __builtin_ia32_vfcmaddcsh_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmulcsh_round(A, B, C) __builtin_ia32_vfmulcsh_round(A, B, 8) +#define __builtin_ia32_vfmulcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfmulcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmulcsh_round(A, B, C) __builtin_ia32_vfcmulcsh_round(A, B, 8) +#define __builtin_ia32_vfcmulcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfcmulcsh_mask_round(A, C, D, B, 8) /* avx512fp16vlintrin.h */ #define __builtin_ia32_cmpph128_mask(A, B, C, D) __builtin_ia32_cmpph128_mask(A, B, 1, D) diff --git a/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-3.c b/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-3.c index 1ba8172..40aefb5 100644 --- a/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-3.c +++ b/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-3.c @@ -8,7 +8,7 @@ #define MAX 1000 #define EPS 0.00001 -__attribute__ ((noinline, optimize (1))) +__attribute__ ((noinline, optimize (1, "-fno-fast-math"))) void static compute_rsqrt_ref (float *a, float *r) { diff --git a/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-5.c b/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-5.c index e067a81..498f4d5 100644 --- a/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-5.c +++ b/gcc/testsuite/gcc.target/i386/avx512er-vrsqrt28ps-5.c @@ -8,7 +8,7 @@ #define MAX 1000 #define EPS 0.00001 -__attribute__ ((noinline, optimize (1))) +__attribute__ ((noinline, optimize (1, "-fno-fast-math"))) void static compute_sqrt_ref (float *a, float *r) { diff --git a/gcc/testsuite/gcc.target/i386/avx512f-vect-rebuild.c b/gcc/testsuite/gcc.target/i386/avx512f-vect-rebuild.c new file mode 100644 index 0000000..aef6855 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512f-vect-rebuild.c @@ -0,0 +1,21 @@ +/* { dg-do compile } */ +/* { dg-options "-O -mavx512vl -mavx512dq -fno-tree-forwprop" } */ + +typedef double v2df __attribute__ ((__vector_size__ (16))); +typedef double v4df __attribute__ ((__vector_size__ (32))); + +v2df h (v4df x) +{ + v2df xx = { x[2], x[3] }; + return xx; +} + +v4df f2 (v4df x) +{ + v4df xx = { x[0], x[1], x[2], x[3] }; + return xx; +} + +/* { dg-final { scan-assembler-not "unpck" } } */ +/* { dg-final { scan-assembler-not "valign" } } */ +/* { dg-final { scan-assembler-times "\tv?extract(?:f128|f64x2)\[ \t\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-13.c b/gcc/testsuite/gcc.target/i386/avx512fp16-13.c new file mode 100644 index 0000000..c3bae65 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-13.c @@ -0,0 +1,140 @@ +/* { dg-do compile} */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +#include <immintrin.h> +void +__attribute__ ((noinline, noclone)) +store512_ph (void *p, __m512h a) +{ + _mm512_store_ph (p, a); +} + +/* { dg-final { scan-assembler-times "vmovdqa64\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\]*\\)" 1 } } */ + +void +__attribute__ ((noinline, noclone)) +store256_ph (void *p, __m256h a) +{ + _mm256_store_ph (p, a); +} + +/* { dg-final { scan-assembler-times "vmovdqa64\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\[^\n\]*\\)" 1 } } */ + +void +__attribute__ ((noinline, noclone)) +store_ph (void *p, __m128h a) +{ + _mm_store_ph (p, a); +} + +/* { dg-final { scan-assembler-times "vmovdqa64\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\]*\\)" 1 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +load512_ph (void const *p) +{ + return _mm512_load_ph (p); +} + +/* { dg-final { scan-assembler-times "vmovdqa64\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\]*\\)" 1 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +load256_ph (void const *p) +{ + return _mm256_load_ph (p); +} + +/* { dg-final { scan-assembler-times "vmovdqa64\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\[^\n\]*\\)" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +load_ph (void const *p) +{ + return _mm_load_ph (p); +} +/* { dg-final { scan-assembler-times "vmovdqa64\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\]*\\)" 1 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +load512u_ph (void const *p) +{ + return _mm512_loadu_ph (p); +} + +/* { dg-final { scan-assembler-times "vmovdqu16\[ \\t\]*\[^,\]*,\[^\{\n\]*%zmm\[0-9\]" 1 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +load256u_ph (void const *p) +{ + return _mm256_loadu_ph (p); +} + +/* { dg-final { scan-assembler-times "vmovdqu16\[ \\t\]*\[^,\]*,\[^\{\n\]*%ymm\[0-9\]" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +load128u_ph (void const *p) +{ + return _mm_loadu_ph (p); +} + +/* { dg-final { scan-assembler-times "vmovdqu16\[ \\t\]*\[^,\]*,\[^\{\n\]*%xmm\[0-9\]" 1 } } */ + +void +__attribute__ ((noinline, noclone)) +store512u_ph (void *p, __m512h a) +{ + return _mm512_storeu_ph (p, a); +} + +/* { dg-final { scan-assembler-times "vmovdqu16\[ \\t\]*\[^\{\n\]*%zmm\[0-9\], *\[^,\]*" 1 } } */ + +void +__attribute__ ((noinline, noclone)) +store256u_ph (void *p, __m256h a) +{ + return _mm256_storeu_ph (p, a); +} + +/* { dg-final { scan-assembler-times "vmovdqu16\[ \\t\]*\[^\{\n\]*%ymm\[0-9\], *\[^,\]*" 1 } } */ + +void +__attribute__ ((noinline, noclone)) +storeu_ph (void *p, __m128h a) +{ + return _mm_storeu_ph (p, a); +} + +/* { dg-final { scan-assembler-times "vmovdqu16\[ \\t\]*\[^\{\n\]*%xmm\[0-9\], *\[^,\]*" 1 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +abs512_ph (__m512h a) +{ + return _mm512_abs_ph (a); +} + +/* { dg-final { scan-assembler-times "vpbroadcastd\[^\n\]*%zmm\[0-9\]+" 1 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "vpandd\[^\n\]*%zmm\[0-9\]+" 1 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +abs256_ph (__m256h a) +{ + return _mm256_abs_ph (a); +} + +/* { dg-final { scan-assembler-times "vpbroadcastq\[^\n\]*%ymm\[0-9\]+" 1 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "vpand\[^\n\]*%ymm\[0-9\]+" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +abs_ph (__m128h a) +{ + return _mm_abs_ph (a); +} + +/* { dg-final { scan-assembler-times "vpbroadcastq\[^\n\]*%xmm\[0-9\]+" 1 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "vpand\[^\n\]*%xmm\[0-9\]+" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-14.c b/gcc/testsuite/gcc.target/i386/avx512fp16-14.c new file mode 100644 index 0000000..5c670ae --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-14.c @@ -0,0 +1,85 @@ +/* { dg-do compile} */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mavx512bw" } */ + +#include <immintrin.h> + +__m512h +__attribute__ ((noinline, noclone)) +test_mm512_mask_blend_ph (__mmask32 U, __m512h A, __m512h B ) +{ + return _mm512_mask_blend_ph (U, A, B); +} + +/* { dg-final { scan-assembler-times "(?:vmovdqu16|vpblendmw)\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +test_mm512_permutex2var_ph (__m512h A, __m512i I, __m512h B) +{ + return _mm512_permutex2var_ph (A, I, B); +} + +/* { dg-final { scan-assembler-times "vperm\[ti\]2w\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+" 1 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +test_mm512_permutexvar_ph (__m512i A, __m512h B) +{ + return _mm512_permutexvar_ph (A, B); +} + +/* { dg-final { scan-assembler-times "vpermw\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+" 1 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +test_mm256_mask_blend_ph (__mmask16 U, __m256h A, __m256h B ) +{ + return _mm256_mask_blend_ph (U, A, B); +} + +/* { dg-final { scan-assembler-times "(?:vmovdqu16|vpblendmw)\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +test_mm256_permutex2var_ph (__m256h A, __m256i I, __m256h B) +{ + return _mm256_permutex2var_ph (A, I, B); +} + +/* { dg-final { scan-assembler-times "vperm\[ti\]2w\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+" 1 { target { ! ia32 } } } } */ + +__m256h +__attribute__ ((noinline, noclone)) +test_mm256_permutexvar_ph (__m256i A, __m256h B) +{ + return _mm256_permutexvar_ph (A, B); +} + +/* { dg-final { scan-assembler-times "vpermw\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +test_mm_mask_blend_ph (__mmask8 U, __m128h A, __m128h B ) +{ + return _mm_mask_blend_ph (U, A, B); +} + +/* { dg-final { scan-assembler-times "(?:vmovdqu16|vpblendmw)\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +test_mm_permutex2var_ph (__m128h A, __m128i I, __m128h B) +{ + return _mm_permutex2var_ph (A, I, B); +} + +/* { dg-final { scan-assembler-times "vperm\[it\]2w\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +test_mm_permutexvar_ph (__m128i A, __m128h B) +{ + return _mm_permutexvar_ph (A, B); +} + +/* { dg-final { scan-assembler-times "vpermw\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-64-32-vecop-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-64-32-vecop-1.c new file mode 100644 index 0000000..754e909 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-64-32-vecop-1.c @@ -0,0 +1,30 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +/* { dg-final { scan-assembler-times "vaddph" 2 } } */ +/* { dg-final { scan-assembler-times "vsubph" 2 } } */ +/* { dg-final { scan-assembler-times "vmulph" 2 } } */ +/* { dg-final { scan-assembler-times "vdivph" 2 } } */ + +#define DO_PRAGMA(X) _Pragma(#X) + +#define VEC_OP_VV(size, op, name) \ +void \ +__attribute__ ((noinline, noclone, optimize("tree-slp-vectorize"))) \ +vecop_v##size##hf##name (_Float16 * restrict dst, \ + _Float16 * restrict src1, _Float16 * restrict src2) \ +{ \ + int i; \ + DO_PRAGMA (GCC unroll size) \ + for (i = 0; i < size; i++) \ + dst[i] = src1[i] op src2[i]; \ +} + +VEC_OP_VV(4, +, add) +VEC_OP_VV(2, +, add) +VEC_OP_VV(4, -, sub) +VEC_OP_VV(2, -, sub) +VEC_OP_VV(4, *, mul) +VEC_OP_VV(2, *, mul) +VEC_OP_VV(4, /, div) +VEC_OP_VV(2, /, div) diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-64-32-vecop-2.c b/gcc/testsuite/gcc.target/i386/avx512fp16-64-32-vecop-2.c new file mode 100644 index 0000000..4dc6f9f --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-64-32-vecop-2.c @@ -0,0 +1,75 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +static void vec_op_test (void); +#define DO_TEST vec_op_test +#define AVX512FP16 +#define AVX512VL +#include "avx512f-check.h" +#include "avx512fp16-64-32-vecop-1.c" + +_Float16 a[4], b[4], fexp[4], fref[4]; + +#define EMULATE_VEC_OP_VV(size, op, name) \ +void \ +__attribute__ ((noinline, noclone)) \ +scalar_vecop_v##size##hf##name ( \ + _Float16 * restrict dst, _Float16 * restrict src1, \ + _Float16 * restrict src2) \ +{ \ + int i; \ + for (i = 0; i < size; i++) \ + dst[i] = src1[i] op src2[i]; \ +} + +EMULATE_VEC_OP_VV (4, +, add) +EMULATE_VEC_OP_VV (2, +, add) +EMULATE_VEC_OP_VV (4, -, sub) +EMULATE_VEC_OP_VV (2, -, sub) +EMULATE_VEC_OP_VV (4, *, mul) +EMULATE_VEC_OP_VV (2, *, mul) +EMULATE_VEC_OP_VV (4, /, div) +EMULATE_VEC_OP_VV (2, /, div) + +void init() +{ + int i; + for (i = 0; i < 4; i++) + { + a[i] = i + 0.5; + b[i] = i * 1.5; + fexp[i] = fref[i] = 2.75 * i; + } +} + +int check_cond(void *a, void *b, int size) +{ + int i; + unsigned short *pa = (unsigned short *)a, + *pb = (unsigned short *)b; + for (i = 0; i < size; i++) + if (pa[i] != pb[i]) + return 0; + return 1; +} + +#define TEST_VEC_OP_VV(size, name) \ +{ \ + init (); \ + scalar_vecop_v##size##hf##name (a, b, fexp); \ + vecop_v##size##hf##name (a, b, fref); \ + if (!check_cond ((void *)fexp, (void *)fref, size)) \ + abort(); \ +} + +static void vec_op_test() +{ + TEST_VEC_OP_VV (4, add) + TEST_VEC_OP_VV (2, add) + TEST_VEC_OP_VV (4, sub) + TEST_VEC_OP_VV (2, sub) + TEST_VEC_OP_VV (4, mul) + TEST_VEC_OP_VV (2, mul) + TEST_VEC_OP_VV (4, div) + TEST_VEC_OP_VV (2, div) +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-fpcompare-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-fpcompare-1.c new file mode 100644 index 0000000..62115f1 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-fpcompare-1.c @@ -0,0 +1,40 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16" } */ + +int +f1 (_Float16 x, _Float16 y) +{ + return x > y; +} + +int +f2 (_Float16 x, _Float16 y) +{ + return x < y; +} + +/* { dg-final { scan-assembler-times "seta" 2 } } */ + +int +f3 (_Float16 x, _Float16 y) +{ + return x >= y; +} + +int +f4 (_Float16 x, _Float16 y) +{ + return x <= y; +} + +/* { dg-final { scan-assembler-times "setnb" 2 } } */ + +int +f5 (_Float16 x, _Float16 y) +{ + return __builtin_isunordered (x, y); +} + +/* { dg-final { scan-assembler-not "vcvtsh2s\[sd\]" } } */ +/* { dg-final { scan-assembler-times "xorl" 5 } } */ +/* { dg-final { scan-assembler-times "vcomish\[^\n\r\]*xmm\[0-9\]" 4 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-fpcompare-2.c b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-fpcompare-2.c new file mode 100644 index 0000000..150c351 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-fpcompare-2.c @@ -0,0 +1,29 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mfpmath=sse -mavx512fp16" } */ + +int +foo (_Float16 y) +{ + return __builtin_isinf (y); +} + +int +foo2 (_Float16 y) +{ + return __builtin_isfinite (y); +} + +int +foo3 (_Float16 y) +{ + return __builtin_signbit(y); +} + +int +foo4 (_Float16 y) +{ + return __builtin_isnormal (y); +} + +/* { dg-final { scan-assembler-not "vcvtsh2s\[sd\]" } } */ +/* { dg-final { scan-assembler-times "vucomish\[^\n\r\]*xmm\[0-9\]" 4 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-minmax-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-minmax-1.c new file mode 100644 index 0000000..90080e4 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-minmax-1.c @@ -0,0 +1,35 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16 -mprefer-vector-width=512" } */ + +_Float16 +minf1 (_Float16 a, _Float16 b) +{ + return __builtin_fminf16 (a, b); +} + +void +minf2 (_Float16* __restrict psrc1, _Float16* __restrict psrc2, + _Float16* __restrict pdst) +{ + for (int i = 0; i != 32; i++) + pdst[i] = __builtin_fminf16 (psrc1[i], psrc2[i]); +} + +_Float16 +maxf1 (_Float16 a, _Float16 b) +{ + return __builtin_fmaxf16 (a, b); +} + +void +maxf2 (_Float16* __restrict psrc1, _Float16* __restrict psrc2, + _Float16* __restrict pdst) +{ + for (int i = 0; i != 32; i++) + pdst[i] = __builtin_fmaxf16 (psrc1[i], psrc2[i]); +} + +/* { dg-final { scan-assembler-times "vmaxsh\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vmaxph\[^\n\r\]*zmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vminsh\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vminph\[^\n\r\]*zmm\[0-9\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-round-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-round-1.c new file mode 100644 index 0000000..a1c6636 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-round-1.c @@ -0,0 +1,45 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16" } */ + +_Float16 +f1 (_Float16 x) +{ + return __builtin_truncf16 (x); +} + +_Float16 +f2 (_Float16 x) +{ + return __builtin_floorf16 (x); +} + +_Float16 +f3 (_Float16 x) +{ + return __builtin_ceilf16 (x); +} + +_Float16 +f4 (_Float16 x) +{ + return __builtin_roundevenf16 (x); +} + +_Float16 +f5 (_Float16 x) +{ + return __builtin_rintf16 (x); +} + +_Float16 +f6 (_Float16 x) +{ + return __builtin_nearbyintf16 (x); +} + +/* { dg-final { scan-assembler-times "vrndscalesh\[ \\t\]+\\\$11\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vrndscalesh\[ \\t\]+\\\$10\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vrndscalesh\[ \\t\]+\\\$9\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vrndscalesh\[ \\t\]+\\\$8\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vrndscalesh\[ \\t\]+\\\$4\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vrndscalesh\[ \\t\]+\\\$12\[^\n\r\]*xmm\[0-9\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-sqrt-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-sqrt-1.c new file mode 100644 index 0000000..b4efc84 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-builtin-sqrt-1.c @@ -0,0 +1,18 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16 -mprefer-vector-width=512" } */ + +_Float16 +f1 (_Float16 x) +{ + return __builtin_sqrtf16 (x); +} + +void +f2 (_Float16* __restrict psrc, _Float16* __restrict pdst) +{ + for (int i = 0; i != 32; i++) + pdst[i] = __builtin_sqrtf16 (psrc[i]); +} + +/* { dg-final { scan-assembler-times "vsqrtsh\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vsqrtph\[^\n\r\]*zmm\[0-9\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-complex-constraints.c b/gcc/testsuite/gcc.target/i386/avx512fp16-complex-constraints.c new file mode 100644 index 0000000..fcd3794 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-complex-constraints.c @@ -0,0 +1,23 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ + +/* { dg-final { scan-assembler-not "vfmulcph\[ \\t\]+\[^\{\n\]*%zmm1+\[^\n\r]*%zmm0+\[^\n\r]*%zmm0+(?:\n|\[ \\t\]+#)" } } */ +/* { dg-final { scan-assembler-not "vfmaddcph\[ \\t\]+\[^\{\n\]*%zmm0+\[^\n\r]*%zmm0+\[^\n\r]*%zmm0+(?:\n|\[ \\t\]+#)" } } */ +/* { dg-final { scan-assembler-not "vfmulcsh\[ \\t\]+\[^\{\n\]*%xmm1+\[^\n\r]*%xmm0+\[^\n\r]*%xmm0+(?:\n|\[ \\t\]+#)" } } */ +/* { dg-final { scan-assembler-not "vfmaddcsh\[ \\t\]+\[^\{\n\]*%xmm0+\[^\n\r]*%xmm0+\[^\n\r]*%xmm0+(?:\n|\[ \\t\]+#)" } } */ + +#include <immintrin.h> + +volatile __m512h a1; +volatile __m128h a2; +__m512h b1; +__m128h b2; + +void extern +avx512f_test (void) +{ + a1 = _mm512_fmul_pch (a1, a1); + b1 = _mm512_fmadd_pch (b1, b1, b1); + a2 = _mm_fmul_sch (a2, a2); + b2 = _mm_fmadd_sch (b2, b2, b2); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-conjugation-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-conjugation-1.c new file mode 100644 index 0000000..662b23c --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-conjugation-1.c @@ -0,0 +1,34 @@ +/* { dg-do compile} */ +/* { dg-options "-O2 -mavx512fp16" } */ + +#include <immintrin.h> +__m512h +__attribute__ ((noinline, noclone)) +test_mm512_conj_pch (__m512h __A) +{ + return _mm512_conj_pch (__A); +} + +/* { dg-final { scan-assembler-times "vpxord\[^\n\]*%zmm\[0-9\]+" 3 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +test_mm512_mask_conj_pch (__m512h __W, __mmask16 __U, __m512h __A) +{ + return _mm512_mask_conj_pch (__W, __U, __A); +} + +/* { dg-final { scan-assembler-times "vpxord\[^\n\]*%zmm\[0-9\]+" 3 } } */ +/* { dg-final { scan-assembler-times "kmovw\[^\n\]*%k\[1-9\]+" 2 } } */ +/* { dg-final { scan-assembler-times "vmovaps\[^\n]" 2 } } */ + +__m512h +__attribute__ ((noinline, noclone)) +test_mm512_maskz_conj_pch (__mmask16 __U, __m512h __A) +{ + return _mm512_maskz_conj_pch (__U, __A); +} + +/* { dg-final { scan-assembler-times "vpxord\[^\n\]*%zmm\[0-9\]+" 3 } } */ +/* { dg-final { scan-assembler-times "kmovw\[^\n\]*%k\[1-9\]+" 2 } } */ +/* { dg-final { scan-assembler-times "vmovaps\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-floatvnhf.c b/gcc/testsuite/gcc.target/i386/avx512fp16-floatvnhf.c new file mode 100644 index 0000000..8471a1d --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-floatvnhf.c @@ -0,0 +1,61 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -ftree-slp-vectorize -mprefer-vector-width=512" } */ + +extern long long di[8]; +extern unsigned long long udi[8]; +extern int si[16]; +extern unsigned int usi[16]; +extern short hi[32]; +extern unsigned short uhi[32]; +extern _Float16 hf[32]; + +#define DO_PRAGMA(X) _Pragma(#X) + +#define FLOATHFVV(size, mode) \ + void __attribute__ ((noinline, noclone)) \ +float##v##size##mode##v##size##hf () \ +{\ + int i; \ + DO_PRAGMA (GCC unroll size) \ + for (i = 0; i < size; i++) \ + hf[i] = (_Float16) mode[i]; \ +} + +FLOATHFVV(32, hi) +FLOATHFVV(16, hi) +FLOATHFVV(8, hi) +FLOATHFVV(16, si) +FLOATHFVV(8, si) +FLOATHFVV(4, si) +FLOATHFVV(8, di) +FLOATHFVV(4, di) +FLOATHFVV(2, di) + +FLOATHFVV(32, uhi) +FLOATHFVV(16, uhi) +FLOATHFVV(8, uhi) +FLOATHFVV(16, usi) +FLOATHFVV(8, usi) +FLOATHFVV(4, usi) +FLOATHFVV(8, udi) +FLOATHFVV(4, udi) +FLOATHFVV(2, udi) + +/* { dg-final { scan-assembler-times "vcvtqq2phz\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtuqq2phz\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtqq2phy\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtuqq2phy\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtqq2phx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtuqq2phx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtdq2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtudq2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtdq2phy\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtudq2phy\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtdq2phx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtudq2phx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtw2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtuw2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtw2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtuw2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtw2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtuw2ph\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-fma-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-fma-1.c new file mode 100644 index 0000000..d78d762 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-fma-1.c @@ -0,0 +1,69 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16" } */ + +typedef _Float16 v32hf __attribute__ ((__vector_size__ (64))); + +_Float16 +foo1 (_Float16 a, _Float16 b, _Float16 c) +{ + return a * b + c; +} + +/* { dg-final { scan-assembler-times "vfmadd132sh\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +_Float16 +foo2 (_Float16 a, _Float16 b, _Float16 c) +{ + return -a * b + c; +} + +/* { dg-final { scan-assembler-times "vfnmadd132sh\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +_Float16 +foo3 (_Float16 a, _Float16 b, _Float16 c) +{ + return a * b - c; +} + +/* { dg-final { scan-assembler-times "vfmsub132sh\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +_Float16 +foo4 (_Float16 a, _Float16 b, _Float16 c) +{ + return -a * b - c; +} + +/* { dg-final { scan-assembler-times "vfnmsub132sh\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +v32hf +foo5 (v32hf a, v32hf b, v32hf c) +{ + return a * b + c; +} + +/* { dg-final { scan-assembler-times "vfmadd132ph\[^\n\r\]*zmm\[0-9\]" 1 } } */ + +v32hf +foo6 (v32hf a, v32hf b, v32hf c) +{ + return -a * b + c; +} + +/* { dg-final { scan-assembler-times "vfnmadd132ph\[^\n\r\]*zmm\[0-9\]" 1 } } */ + +v32hf +foo7 (v32hf a, v32hf b, v32hf c) +{ + return a * b - c; +} + +/* { dg-final { scan-assembler-times "vfmsub132ph\[^\n\r\]*zmm\[0-9\]" 1 } } */ + +v32hf +foo8 (v32hf a, v32hf b, v32hf c) +{ + return -a * b - c; +} + +/* { dg-final { scan-assembler-times "vfnmsub132ph\[^\n\r\]*zmm\[0-9\]" 1 } } */ + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-helper.h b/gcc/testsuite/gcc.target/i386/avx512fp16-helper.h index ce3cfdc..69948f8 100644 --- a/gcc/testsuite/gcc.target/i386/avx512fp16-helper.h +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-helper.h @@ -172,9 +172,9 @@ init_src() for (i = 0; i < AVX512F_MAX_ELEM; i++) { v1.f32[i] = i + 1; - v2.f32[i] = i * 0.5f; + v2.f32[i] = (i + 2) * 0.5f; v3.f32[i] = i * 1.5f; - v4.f32[i] = i - 0.5f; + v4.f32[i] = i - 1.5f; src3.u32[i] = (i + 1) * 10; } @@ -234,10 +234,12 @@ init_dest(V512 * res, V512 * exp) #undef DF #undef H_HF #undef NET_MASK +#undef NET_CMASK #undef MASK_VALUE #undef HALF_MASK #undef ZMASK_VALUE #define NET_MASK 0xffff +#define NET_CMASK 0xff #define MASK_VALUE 0xcccc #define ZMASK_VALUE 0xfcc1 #define HALF_MASK 0xcc @@ -253,10 +255,12 @@ init_dest(V512 * res, V512 * exp) #undef SI #undef H_HF #undef NET_MASK +#undef NET_CMASK #undef MASK_VALUE #undef ZMASK_VALUE #undef HALF_MASK #define NET_MASK 0xff +#define NET_CMASK 0xff #define MASK_VALUE 0xcc #define HALF_MASK MASK_VALUE #define ZMASK_VALUE 0xc1 @@ -267,6 +271,7 @@ init_dest(V512 * res, V512 * exp) #define H_HF(x) x.xmmh[0] #else #define NET_MASK 0xffffffff +#define NET_CMASK 0xffff #define MASK_VALUE 0xcccccccc #define ZMASK_VALUE 0xfcc1fcc1 #define HALF_MASK 0xcccc diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-1.c new file mode 100644 index 0000000..3556316 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-1.c @@ -0,0 +1,132 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16" } */ + +static void do_test (void); + +#define DO_TEST do_test +#define AVX512FP16 + +#include <immintrin.h> +#include "avx512-check.h" + +__m512h a1 = { -39.3f16, -180.9f16, 13.4f16, 35.4f16, -41.1f16, -14.4f16, 24.5f16, 53.54f16, + 238.4f16, -134.8f16, 24.5f16, 35.6f16, -346.7f16, -43.4f16, -535.3f16, 324.7f16, + 82.5f16, 21.4f16, 24.4f16, 53.4f16, 23.5f16, -24.4f16, -34.5f16, -32.5f16, + 23.6f16, -13.4f16, 24.5f16, 35.5f16, -34.4f16, -24.5f16, -34.5f16, 13.5f16 }; + +__m512h a2 = { 1.25f16, 2.25f16, -0.25f16, 4.0f16, -2.0f16, 4.0f16, -3.0f16, 2.0f16, + -0.5f16, -1.0f16, 1.0f16, -1.0f16, 1.0f16, 1.0f16, 2.0f16, 4.0f16, + 1.25f16, 2.25f16, -4.25f16, 4.0f16, -2.4f16, 4.0f16, -3.0f, 2.0f16, + -4.5f16, 7.6f16, 0.7f16, -8.2f16, 2.1f16, 2.4f16, -2.0f16, 19.4f16 }; + +__attribute__((noinline, noclone)) _Float16 +test_reduce_add_ph (__m512h a) +{ + return _mm512_reduce_add_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_mul_ph (__m512h a) +{ + return _mm512_reduce_mul_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_max_ph (__m512h a) +{ + return _mm512_reduce_max_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_min_ph (__m512h a) +{ + return _mm512_reduce_min_ph (a); +} + +#define SIZE 32 +#define REF_ADDMUL(op, a) \ + __m256h __a1 = _mm256_setzero_ph (); \ + for (int i =0; i < 16; i++) { \ + __a1[i] = (_Float16) a[i] op (_Float16) a[i + 16]; \ + } \ + __m128h __a2 = _mm_setzero_ph (); \ + for (int i =0; i < 8; i++) { \ + __a2[i] = (_Float16) __a1[i] op (_Float16) __a1[i + 8]; \ + } \ + _Float16 __c0 = __a2[0] op __a2[4]; \ + _Float16 __c1 = __a2[1] op __a2[5]; \ + _Float16 __c2 = __a2[2] op __a2[6]; \ + _Float16 __c3 = __a2[3] op __a2[7]; \ + _Float16 __d0 = __c0 op __c2; \ + _Float16 __d1 = __c1 op __c3; \ + _Float16 __e0 = __d0 op __d1; \ + r3 = __e0 + +#define TESTOP(opname, op, a) \ + do { \ + _Float16 r1 = _mm512_reduce_##opname##_ph (a); \ + _Float16 r2 = test_reduce_##opname##_ph (a); \ + _Float16 r3 = a[0]; \ + if (r1 != r2) { \ + __builtin_abort (); \ + } \ + REF_ADDMUL (op, a); \ + if (r1 != r3) { \ + __builtin_abort (); \ + } \ + } while (0) + +#define TEST_ADDMUL_PH(a) \ + do { \ + TESTOP (add, +, a); \ + TESTOP (mul, *, a); \ + } while (0) + + static void + test_512_addmul_ph (void) + { + TEST_ADDMUL_PH (a1); + TEST_ADDMUL_PH (a2); + } + +#undef TESTOP +#define TESTOP(opname, op, a) \ + do { \ + _Float16 r1 = _mm512_reduce_##opname##_ph (a); \ + _Float16 r2 = test_reduce_##opname##_ph (a); \ + _Float16 r3 = a[0]; \ + if (r1 != r2) { \ + __builtin_abort (); \ + } \ + for (int i = 1; i < SIZE; i++) \ + r3 = r3 op a[i]; \ + if (r1 != r3) { \ + __builtin_abort (); \ + } \ + } while (0) + +#define TEST_MINMAX_PH(a) \ + do { \ + TESTOP (min, < a[i] ? r3 :, a); \ + TESTOP (max, > a[i] ? r3 :, a); \ + } while (0) + +static void +test_512_minmax_ph (void) +{ + TEST_MINMAX_PH (a1); + TEST_MINMAX_PH (a2); +} + +static void +do_test (void) +{ + test_512_addmul_ph(); + test_512_minmax_ph(); +} + +#undef SIZE +#undef REF_ADDMUL +#undef TESTOP +#undef TEST_ADDMUL_PH +#undef TEST_MINMAX_PH diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-2.c b/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-2.c new file mode 100644 index 0000000..593340e --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-2.c @@ -0,0 +1,96 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mprefer-vector-width=512 -fdump-tree-optimized" } */ + +/* { dg-final { scan-tree-dump-times "\.REDUC_PLUS" 3 "optimized" } } */ +/* { dg-final { scan-tree-dump-times "\.REDUC_MIN" 3 "optimized" } } */ +/* { dg-final { scan-tree-dump-times "\.REDUC_MAX" 3 "optimized" } } */ + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_add_128 (_Float16* p) +{ + _Float16 sum = 0; + for (int i = 0; i != 8; i++) + sum += p[i]; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_add_256 (_Float16* p) +{ + _Float16 sum = 0; + for (int i = 0; i != 16; i++) + sum += p[i]; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_add_512 (_Float16* p) +{ + _Float16 sum = 0; + for (int i = 0; i != 32; i++) + sum += p[i]; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_min_128 (_Float16* p) +{ + _Float16 sum = p[0]; + for (int i = 0; i != 8; i++) + sum = sum > p[i] ? p[i] : sum; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_min_256 (_Float16* p) +{ + _Float16 sum = p[0]; + for (int i = 0; i != 16; i++) + sum = sum > p[i] ? p[i] : sum; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_min_512 (_Float16* p) +{ + _Float16 sum = p[0]; + for (int i = 0; i != 32; i++) + sum = sum > p[i] ? p[i] : sum; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_max_128 (_Float16* p) +{ + _Float16 sum = p[0]; + for (int i = 0; i != 8; i++) + sum = sum < p[i] ? p[i] : sum; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_max_256 (_Float16* p) +{ + _Float16 sum = p[0]; + for (int i = 0; i != 16; i++) + sum = sum < p[i] ? p[i] : sum; + return sum; +} + +_Float16 +__attribute__((noipa, target("avx512fp16,avx512vl"), optimize("Ofast"))) +reduc_max_512 (_Float16* p) +{ + _Float16 sum = p[0]; + for (int i = 0; i != 32; i++) + sum = sum < p[i] ? p[i] : sum; + return sum; +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-3.c b/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-3.c new file mode 100644 index 0000000..9281a3b --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-reduce-op-3.c @@ -0,0 +1,91 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -mavx512fp16" } */ +/* { dg-require-effective-target avx512fp16 } */ +/* { dg-require-effective-target avx512vl } */ + +#define AVX512FP16 +#define AVX512VL + +#include "avx512f-helper.h" + +#include "avx512fp16-reduce-op-2.c" + +void +test_256 (void) +{ + _Float16 a[32]; + int sign = 1; + _Float16 res1 = 0, exp1; + _Float16 res2 = 0, exp2; + _Float16 res3 = 0, exp3; + + for (int i = 0; i != 32; i++) + { + a[i] = sign * (4.0 * i); + sign *= -1; + if (i < 8) + res1 += a[i]; + if (i < 16) + res2 += a[i]; + res3 += a[i]; + } + + exp1 = reduc_add_128 (a); + exp2 = reduc_add_256 (a); + exp3 = reduc_add_512 (a); + if (exp1 != res1 || exp2 != res2 || exp3 != res3) + abort(); +} + +#define MAX(A, B) ((A) > (B) ? (A) : (B)) +#define MIN(A, B) ((A) < (B) ? (A) : (B)) + +void +test_128 () +{ + _Float16 a[32]; + int sign = 1; + _Float16 min_res1, min_exp1, max_res1, max_exp1; + _Float16 min_res2, min_exp2, max_res2, max_exp2; + _Float16 min_res3, min_exp3, max_res3, max_exp3; + + for (int i = 0; i != 32; i++) + { + a[i] = sign * (4.9 * i * i - 8.3 * i + 14.8); + sign *= -1; + } + + min_res1 = max_res1 = a[0]; + for (int i = 0 ; i != 8; i++) + { + min_res1 = MIN (min_res1, a[i]); + max_res1 = MAX (max_res1, a[i]); + } + + min_res2 = min_res1; + max_res2 = max_res1; + for (int i = 8 ; i != 16; i++) + { + min_res2 = MIN (min_res2, a[i]); + max_res2 = MAX (max_res2, a[i]); + } + + min_res3 = min_res2; + max_res3 = max_res2; + for (int i = 16 ; i != 32; i++) + { + min_res3 = MIN (min_res3, a[i]); + max_res3 = MAX (max_res3, a[i]); + } + + min_exp1 = reduc_min_128 (a); + min_exp2 = reduc_min_256 (a); + min_exp3 = reduc_min_512 (a); + max_exp1 = reduc_max_128 (a); + max_exp2 = reduc_max_256 (a); + max_exp3 = reduc_max_512 (a); + + if (min_exp1 != min_res1 || min_exp2 != min_res2 || min_exp3 != min_res3 + || max_exp1 != max_res1 || max_exp2 != max_res2 || max_exp3 != max_res3) + abort(); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-trunc-extendvnhf.c b/gcc/testsuite/gcc.target/i386/avx512fp16-trunc-extendvnhf.c new file mode 100644 index 0000000..2ef901a --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-trunc-extendvnhf.c @@ -0,0 +1,55 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -ftree-slp-vectorize -mprefer-vector-width=512" } */ + +extern double df[8]; +extern float sf[16]; +extern _Float16 hf[32]; + +#define DO_PRAGMA(X) _Pragma(#X) + +#define TRUNCHFVV(size, mode) \ + void __attribute__ ((noinline, noclone)) \ +truncv##size##mode##v##size##hf () \ +{\ + int i; \ + DO_PRAGMA (GCC unroll size) \ + for (i = 0; i < size; i++) \ + hf[i] = mode[i]; \ +} + +#define EXTENDHFVV(size, mode) \ + void __attribute__ ((noinline, noclone)) \ +extendv##size##hf##v##size##mode () \ +{\ + int i; \ + DO_PRAGMA (GCC unroll size) \ + for (i = 0; i < size; i++) \ + mode[i] = hf[i]; \ +} + +TRUNCHFVV(8, df) +TRUNCHFVV(4, df) +TRUNCHFVV(2, df) +TRUNCHFVV(16, sf) +TRUNCHFVV(8, sf) +TRUNCHFVV(4, sf) +EXTENDHFVV(8, df) +EXTENDHFVV(4, df) +EXTENDHFVV(2, df) +EXTENDHFVV(16, sf) +EXTENDHFVV(8, sf) +EXTENDHFVV(4, sf) + +/* { dg-final { scan-assembler-times "vcvtpd2phz\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtpd2phy\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtpd2phx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtps2phx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtps2phxy\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtps2phxx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtph2pd\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtph2pd\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtph2pd\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtph2psx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtph2psx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvtph2psx\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-trunchf.c b/gcc/testsuite/gcc.target/i386/avx512fp16-trunchf.c new file mode 100644 index 0000000..2c025b7 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-trunchf.c @@ -0,0 +1,59 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16" } */ +/* { dg-final { scan-assembler-times "vcvttsh2si\[ \\t\]+\[^\{\n\]*(?:%xmm\[0-9\]|\\(%esp\\))+, %eax(?:\n|\[ \\t\]+#)" 3 } } */ +/* { dg-final { scan-assembler-times "vcvttsh2usi\[ \\t\]+\[^\{\n\]*(?:%xmm\[0-9\]|\\(%esp\\))+, %eax(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vcvttsh2si\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+, %rax(?:\n|\[ \\t\]+#)" 1 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "vcvttsh2usi\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+, %rax(?:\n|\[ \\t\]+#)" 1 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler "xorl\[ \\t\]+%edx, %edx" { target ia32 } } } */ + +#include <immintrin.h> + +short +__attribute__ ((noinline, noclone)) +trunc_f16_to_si16 (_Float16 f) +{ + return f; +} + +unsigned short +__attribute__ ((noinline, noclone)) +trunc_f16_to_su16 (_Float16 f) +{ + return f; +} + +int +__attribute__ ((noinline, noclone)) +trunc_f16_to_si32 (_Float16 f) +{ + return f; +} + +unsigned int +__attribute__ ((noinline, noclone)) +trunc_f16_to_su32 (_Float16 f) +{ + return f; +} + +long long +__attribute__ ((noinline, noclone)) +trunc_f16_to_si64 (_Float16 f) +{ + return f; +} + +unsigned long long +__attribute__ ((noinline, noclone)) +trunc_f16_to_su64 (_Float16 f) +{ + return f; +} + +unsigned long long +__attribute__ ((noinline, noclone)) +trunc_f16_to_su64_zext (_Float16 f) +{ + return (unsigned int) f; +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-truncvnhf.c b/gcc/testsuite/gcc.target/i386/avx512fp16-truncvnhf.c new file mode 100644 index 0000000..7a51c9d --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-truncvnhf.c @@ -0,0 +1,61 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -ftree-slp-vectorize -mprefer-vector-width=512" } */ + +extern long long di[8]; +extern unsigned long long udi[8]; +extern int si[16]; +extern unsigned int usi[16]; +extern short hi[32]; +extern unsigned short uhi[32]; +extern _Float16 hf[32]; + +#define DO_PRAGMA(X) _Pragma(#X) + +#define FIX_TRUNCHFVV(size, mode) \ + void __attribute__ ((noinline, noclone)) \ +fix_trunc##size##hf##v##size##mode () \ +{\ + int i; \ + DO_PRAGMA (GCC unroll size) \ + for (i = 0; i < size; i++) \ + mode[i] = hf[i]; \ +} + +FIX_TRUNCHFVV(32, hi) +FIX_TRUNCHFVV(16, hi) +FIX_TRUNCHFVV(8, hi) +FIX_TRUNCHFVV(16, si) +FIX_TRUNCHFVV(8, si) +FIX_TRUNCHFVV(4, si) +FIX_TRUNCHFVV(8, di) +FIX_TRUNCHFVV(4, di) +FIX_TRUNCHFVV(2, di) + +FIX_TRUNCHFVV(32, uhi) +FIX_TRUNCHFVV(16, uhi) +FIX_TRUNCHFVV(8, uhi) +FIX_TRUNCHFVV(16, usi) +FIX_TRUNCHFVV(8, usi) +FIX_TRUNCHFVV(4, usi) +FIX_TRUNCHFVV(8, udi) +FIX_TRUNCHFVV(4, udi) +FIX_TRUNCHFVV(2, udi) + +/* { dg-final { scan-assembler-times "vcvttph2qq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2uqq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2qq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2uqq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2qq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2uqq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2dq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2udq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2dq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2udq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2dq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2udq\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2w\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2uw\[ \\t\]+\[^\{\n\]*\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2w\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2uw\[ \\t\]+\[^\{\n\]*\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2w\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vcvttph2uw\[ \\t\]+\[^\{\n\]*\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vcondmn-loop-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vcondmn-loop-1.c new file mode 100644 index 0000000..e8745ab --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vcondmn-loop-1.c @@ -0,0 +1,70 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mprefer-vector-width=512" } */ + +/* { dg-final { scan-assembler-times "vcmpph" 27 } } */ +/* { dg-final { scan-assembler-times "(?:vpcmpw|vpcmpeqw)" 12 } } */ +/* { dg-final { scan-assembler-times "vpcmpuw" 6 } } */ + +typedef unsigned short u16; +typedef short s16; + +#define CONDMOV_LOOP(size, type, ptype, op, name) \ +void \ +__attribute__ ((noinline, noclone, optimize("tree-vectorize"))) \ +loop_cond_##size##ptype##type##name ( \ + ptype * restrict a, ptype * restrict b, \ + type * restrict c, type * restrict d) \ +{ \ + int i; \ + for (i = 0; i < size; i++) \ + { \ + if (a[i] op b[i]) \ + d[i] = c[i]; \ + } \ +} + +CONDMOV_LOOP (32, _Float16, _Float16, <, lt) +CONDMOV_LOOP (32, _Float16, _Float16, >, gt) +CONDMOV_LOOP (32, _Float16, _Float16, ==, eq) +CONDMOV_LOOP (16, _Float16, _Float16, <, lt) +CONDMOV_LOOP (16, _Float16, _Float16, >, gt) +CONDMOV_LOOP (16, _Float16, _Float16, ==, eq) +CONDMOV_LOOP (8, _Float16, _Float16, <, lt) +CONDMOV_LOOP (8, _Float16, _Float16, >, gt) +CONDMOV_LOOP (8, _Float16, _Float16, ==, eq) +CONDMOV_LOOP (32, _Float16, s16, <, lt) +CONDMOV_LOOP (32, _Float16, s16, >, gt) +CONDMOV_LOOP (32, _Float16, s16, ==, eq) +CONDMOV_LOOP (16, _Float16, s16, <, lt) +CONDMOV_LOOP (16, _Float16, s16, >, gt) +CONDMOV_LOOP (16, _Float16, s16, ==, eq) +CONDMOV_LOOP (8, _Float16, s16, <, lt) +CONDMOV_LOOP (8, _Float16, s16, >, gt) +CONDMOV_LOOP (8, _Float16, s16, ==, eq) +CONDMOV_LOOP (32, s16, _Float16, <, lt) +CONDMOV_LOOP (32, s16, _Float16, >, gt) +CONDMOV_LOOP (32, s16, _Float16, ==, eq) +CONDMOV_LOOP (16, s16, _Float16, <, lt) +CONDMOV_LOOP (16, s16, _Float16, >, gt) +CONDMOV_LOOP (16, s16, _Float16, ==, eq) +CONDMOV_LOOP (8, s16, _Float16, <, lt) +CONDMOV_LOOP (8, s16, _Float16, >, gt) +CONDMOV_LOOP (8, s16, _Float16, ==, eq) +CONDMOV_LOOP (32, _Float16, u16, <, lt) +CONDMOV_LOOP (32, _Float16, u16, >, gt) +CONDMOV_LOOP (32, _Float16, u16, ==, eq) +CONDMOV_LOOP (16, _Float16, u16, <, lt) +CONDMOV_LOOP (16, _Float16, u16, >, gt) +CONDMOV_LOOP (16, _Float16, u16, ==, eq) +CONDMOV_LOOP (8, _Float16, u16, <, lt) +CONDMOV_LOOP (8, _Float16, u16, >, gt) +CONDMOV_LOOP (8, _Float16, u16, ==, eq) +CONDMOV_LOOP (32, u16, _Float16, <, lt) +CONDMOV_LOOP (32, u16, _Float16, >, gt) +CONDMOV_LOOP (32, u16, _Float16, ==, eq) +CONDMOV_LOOP (16, u16, _Float16, <, lt) +CONDMOV_LOOP (16, u16, _Float16, >, gt) +CONDMOV_LOOP (16, u16, _Float16, ==, eq) +CONDMOV_LOOP (8, u16, _Float16, <, lt) +CONDMOV_LOOP (8, u16, _Float16, >, gt) +CONDMOV_LOOP (8, u16, _Float16, ==, eq) diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vcondmn-loop-2.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vcondmn-loop-2.c new file mode 100644 index 0000000..a0d5f98 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vcondmn-loop-2.c @@ -0,0 +1,143 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mprefer-vector-width=512" } */ + +static void condmov_test (void); +#define DO_TEST condmov_test +#define AVX512FP16 +#define AVX512VL +#include "avx512f-check.h" +#include "avx512fp16-vcondmn-loop-1.c" + +_Float16 a[32], b[32], c[32], fexp[32], fref[32]; +s16 sa[32], sb[32], sc[32], sexp[32], sref[32]; +u16 ua[32], ub[32], uc[32], uexp[32], uref[32]; + +#define EMULATE_CONDMOV_LOOP(size, type, ptype, op, name) \ +void \ +__attribute__ ((noinline, noclone)) \ +scalar_cond_##size##ptype##type##name ( \ + ptype * restrict a, ptype * restrict b, \ + type * restrict c, type * restrict d) \ +{ \ + int i; \ + for (i = 0; i < size; i++) \ + { \ + if (a[i] op b[i]) \ + d[i] = c[i]; \ + } \ +} + +EMULATE_CONDMOV_LOOP (32, _Float16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (32, _Float16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (32, _Float16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (16, _Float16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (16, _Float16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (16, _Float16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (8, _Float16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (8, _Float16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (8, _Float16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (32, _Float16, s16, <, lt) +EMULATE_CONDMOV_LOOP (32, _Float16, s16, >, gt) +EMULATE_CONDMOV_LOOP (32, _Float16, s16, ==, eq) +EMULATE_CONDMOV_LOOP (16, _Float16, s16, <, lt) +EMULATE_CONDMOV_LOOP (16, _Float16, s16, >, gt) +EMULATE_CONDMOV_LOOP (16, _Float16, s16, ==, eq) +EMULATE_CONDMOV_LOOP (8, _Float16, s16, <, lt) +EMULATE_CONDMOV_LOOP (8, _Float16, s16, >, gt) +EMULATE_CONDMOV_LOOP (8, _Float16, s16, ==, eq) +EMULATE_CONDMOV_LOOP (32, s16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (32, s16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (32, s16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (16, s16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (16, s16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (16, s16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (8, s16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (8, s16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (8, s16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (32, _Float16, u16, <, lt) +EMULATE_CONDMOV_LOOP (32, _Float16, u16, >, gt) +EMULATE_CONDMOV_LOOP (32, _Float16, u16, ==, eq) +EMULATE_CONDMOV_LOOP (16, _Float16, u16, <, lt) +EMULATE_CONDMOV_LOOP (16, _Float16, u16, >, gt) +EMULATE_CONDMOV_LOOP (16, _Float16, u16, ==, eq) +EMULATE_CONDMOV_LOOP (8, _Float16, u16, <, lt) +EMULATE_CONDMOV_LOOP (8, _Float16, u16, >, gt) +EMULATE_CONDMOV_LOOP (8, _Float16, u16, ==, eq) +EMULATE_CONDMOV_LOOP (32, u16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (32, u16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (32, u16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (16, u16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (16, u16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (16, u16, _Float16, ==, eq) +EMULATE_CONDMOV_LOOP (8, u16, _Float16, <, lt) +EMULATE_CONDMOV_LOOP (8, u16, _Float16, >, gt) +EMULATE_CONDMOV_LOOP (8, u16, _Float16, ==, eq) + +void init() +{ + int i; + for (i = 0; i < 32; i++) + { + ua[i] = sa[i] = a[i] = i; + ub[i] = sb[i] = b[i] = i; + uc[i] = sc[i] = c[i] = (32 - i) * 2; + uexp[i] = sexp[i] = fexp[i] = -1; + uref[i] = sref[i] = fref[i] = -1; + } +} + +int check_cond(void *a, void *b, int size) +{ + int i; + u16 *pa = (u16 *)a, *pb = (u16 *)b; + for (i = 0; i < size; i++) + if (pa[i] != pb[i]) + return 0; + return 1; +} + +#define TEST_CONDMOV_LOOP(size, name) \ +{ \ + init (); \ + scalar_cond_##size##_Float16_Float16##name (a, b, c, fexp); \ + loop_cond_##size##_Float16_Float16##name (a, b, c, fref); \ + if (!check_cond ((void *)fexp, (void *)fref, size)) \ + abort(); \ + \ + init (); \ + scalar_cond_##size##_Float16s16##name (a, b, sc, sexp); \ + loop_cond_##size##_Float16s16##name (a, b, sc, sref); \ + if (!check_cond ((void *)sexp, (void *)sref, size)) \ + abort(); \ + \ + init (); \ + scalar_cond_##size##s16_Float16##name (sa, sb, c, fexp); \ + loop_cond_##size##s16_Float16##name (sa, sb, c, fref); \ + if (!check_cond ((void *)fexp, (void *)fref, size)) \ + abort(); \ + \ + init (); \ + scalar_cond_##size##_Float16u16##name (a, b, uc, uexp); \ + loop_cond_##size##_Float16u16##name (a, b, uc, uref); \ + if (!check_cond ((void *)uexp, (void *)uref, size)) \ + abort(); \ + \ + init (); \ + scalar_cond_##size##u16_Float16##name (ua, ub, c, fexp); \ + loop_cond_##size##u16_Float16##name (ua, ub, c, fref); \ + if (!check_cond ((void *)fexp, (void *)fref, size)) \ + abort(); \ +} + +static void condmov_test() +{ + TEST_CONDMOV_LOOP (32, lt) + TEST_CONDMOV_LOOP (32, gt) + TEST_CONDMOV_LOOP (32, eq) + TEST_CONDMOV_LOOP (16, lt) + TEST_CONDMOV_LOOP (16, gt) + TEST_CONDMOV_LOOP (16, eq) + TEST_CONDMOV_LOOP (8, lt) + TEST_CONDMOV_LOOP (8, gt) + TEST_CONDMOV_LOOP (8, eq) +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vec_cmpmn.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vec_cmpmn.c new file mode 100644 index 0000000..ef9f853 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vec_cmpmn.c @@ -0,0 +1,32 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +/* { dg-final { scan-assembler-times "vcmpph" 15 } } */ + +typedef _Float16 v8hf __attribute__ ((vector_size (16))); +typedef _Float16 v16hf __attribute__ ((vector_size (32))); +typedef _Float16 v32hf __attribute__ ((vector_size (64))); + +#define VCMPMN(type, op, name) \ +type \ +__attribute__ ((noinline, noclone)) \ +vec_cmp_##type##type##name (type a, type b) \ +{ \ + return a op b; \ +} + +VCMPMN (v8hf, <, lt) +VCMPMN (v16hf, <, lt) +VCMPMN (v32hf, <, lt) +VCMPMN (v8hf, <=, le) +VCMPMN (v16hf, <=, le) +VCMPMN (v32hf, <=, le) +VCMPMN (v8hf, >, gt) +VCMPMN (v16hf, >, gt) +VCMPMN (v32hf, >, gt) +VCMPMN (v8hf, >=, ge) +VCMPMN (v16hf, >=, ge) +VCMPMN (v32hf, >=, ge) +VCMPMN (v8hf, ==, eq) +VCMPMN (v16hf, ==, eq) +VCMPMN (v32hf, ==, eq) diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcph-1a.c new file mode 100644 index 0000000..6c2c34c --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcph-1a.c @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\{rz-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m512h res, res1, res2; +volatile __m512h x1, x2, x3; +volatile __mmask16 m16; + +void extern +avx512f_test (void) +{ + res = _mm512_fcmadd_pch (x1, x2, x3); + res1 = _mm512_mask_fcmadd_pch (res1, m16, x1, x2); + res1 = _mm512_mask3_fcmadd_pch (res1, x1, x2, m16); + res2 = _mm512_maskz_fcmadd_pch (m16, x1, x2, x3); + res = _mm512_fcmadd_round_pch (x1, x2, x3, 8); + res1 = _mm512_mask_fcmadd_round_pch (res1, m16, x1, x2, 8); + res1 = _mm512_mask3_fcmadd_round_pch (res1, x1, x2, m16, 8); + res2 = _mm512_maskz_fcmadd_round_pch (m16, x1, x2, x3, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcph-1b.c new file mode 100644 index 0000000..835699b --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcph-1b.c @@ -0,0 +1,133 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS (AVX512F_LEN / 16) + +void NOINLINE +EMULATE(c_fmadd_pch) (V512 * dest, V512 op1, V512 op2, + __mmask16 k, int zero_mask, int c_flag, + int is_mask3) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + for (i = 0; i < 16; i++) { + if (((1 << (i / 2)) & k) == 0) { + if (zero_mask) { + v5.f32[i] = 0; + } + else { + v5.u32[i] = is_mask3 ? v3.u32[i] : v7.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v5.f32[i] = v1.f32[i] * v7.f32[i] + - invert * (v1.f32[i+1] * v7.f32[i+1]) + v3.f32[i]; + } + else { + v5.f32[i] = v1.f32[i-1] * v7.f32[i] + + invert * (v1.f32[i] * v7.f32[i-1]) + v3.f32[i]; + + } + } + if (((1 << (i / 2 + 8)) & k) == 0) { + if (zero_mask) { + v6.f32[i] = 0; + } + else { + v6.u32[i] = is_mask3 ? v4.u32[i] : v8.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v6.f32[i] = v2.f32[i] * v8.f32[i] + - invert * (v2.f32[i+1] * v8.f32[i+1]) + v4.f32[i]; + } + else { + v6.f32[i] = v2.f32[i-1] * v8.f32[i] + + invert * (v2.f32[i] * v8.f32[i-1]) + v4.f32[i]; + } + + } + } + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, NET_CMASK, 0, 1, 0); + HF(res) = INTRINSIC (_fcmadd_pch) (HF(res), HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _fcmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 1, 0); + HF(res) = INTRINSIC (_mask_fcmadd_pch) (HF(res) ,HALF_MASK, HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fcmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 1, 1); + HF(res) = INTRINSIC (_mask3_fcmadd_pch) (HF(res), HF(src1), + HF(src2), HALF_MASK); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask3_fcmadd_pch); + + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 1, 1, 0); + HF(res) = INTRINSIC (_maskz_fcmadd_pch) (HALF_MASK, HF(res), + HF(src1), HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fcmadd_pch); + +#if AVX512F_LEN == 512 + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, NET_CMASK, 0, 1, 0); + HF(res) = INTRINSIC (_fcmadd_round_pch) (HF(res), HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _fcmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 1, 0); + HF(res) = INTRINSIC (_mask_fcmadd_round_pch) (HF(res) ,HALF_MASK, HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fcmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 1, 1); + HF(res) = INTRINSIC (_mask3_fcmadd_round_pch) (HF(res), HF(src1), + HF(src2), HALF_MASK, _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask3_fcmadd_pch); + + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 1, 1, 0); + HF(res) = INTRINSIC (_maskz_fcmadd_round_pch) (HALF_MASK, HF(res), + HF(src1), HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fcmadd_pch); +#endif + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcsh-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcsh-1a.c new file mode 100644 index 0000000..8bd8eeb --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcsh-1a.c @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfcmaddcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcsh\[ \\t\]+\{rz-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m128h res, res1, res2; +volatile __m128h x1, x2, x3; +volatile __mmask8 m8; + +void extern +avx128f_test (void) +{ + res = _mm_fcmadd_sch (x1, x2, x3); + res1 = _mm_mask_fcmadd_sch (res1, m8, x1, x2); + res1 = _mm_mask3_fcmadd_sch (res1, x1, x2, m8); + res2 = _mm_maskz_fcmadd_sch (m8, x1, x2, x3); + res = _mm_fcmadd_round_sch (x1, x2, x3, 8); + res1 = _mm_mask_fcmadd_round_sch (res1, m8, x1, x2, 8); + res1 = _mm_mask3_fcmadd_round_sch (res1, x1, x2, m8, 8); + res2 = _mm_maskz_fcmadd_round_sch (m8, x1, x2, x3, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcsh-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcsh-1b.c new file mode 100644 index 0000000..c479068 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmaddcsh-1b.c @@ -0,0 +1,78 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS 8 + +void NOINLINE +EMULATE(c_fmadd_csh) (V512 * dest, V512 op1, V512 op2, + __mmask8 k, int zero_mask, int c_flag, + int is_mask3) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + if ((k&1) || !k) { + v5.f32[0] = v1.f32[0] * v7.f32[0] + - invert * (v1.f32[1] * v7.f32[1]) + v3.f32[0]; + v5.f32[1] = v1.f32[0] * v7.f32[1] + + invert * (v1.f32[1] * v7.f32[0]) + v3.f32[1]; + } + else if (zero_mask) + v5.f32[0] = 0; + else + v5.f32[0] = v7.f32[0]; + + for (i = 2; i < 8; i++) + v5.f32[i] = is_mask3? v3.f32[i] : v7.f32[i]; + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x1, 0, 1, 0); + res.xmmh[0] = _mm_fcmadd_round_sch(res.xmmh[0], src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_fcmadd_sch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x1, 0, 1, 0); + res.xmmh[0] = _mm_mask_fcmadd_round_sch(res.xmmh[0], 0x1, + src1.xmmh[0], src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_mask_fcmadd_sch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x1, 0, 1, 1); + res.xmmh[0] = _mm_mask3_fcmadd_round_sch(res.xmmh[0], src1.xmmh[0], src2.xmmh[0], + 0x1, _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_mask3_fcmadd_sch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x3, 1, 1, 0); + res.xmmh[0] = _mm_maskz_fcmadd_round_sch(0x3, res.xmmh[0], src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_maskz_fcmadd_sch); + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcph-1a.c new file mode 100644 index 0000000..ca2f140 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcph-1a.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\{rz-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m512h res, res1, res2; +volatile __m512h x1, x2, x3; +volatile __mmask16 m16; + +void extern +avx512f_test (void) +{ + res = _mm512_fcmul_pch (x1, x2); + res1 = _mm512_mask_fcmul_pch (res1, m16, x1, x2); + res2 = _mm512_maskz_fcmul_pch (m16, x1, x2); + res = _mm512_fcmul_round_pch (x1, x2, 8); + res1 = _mm512_mask_fcmul_round_pch (res1, m16, x1, x2, 8); + res2 = _mm512_maskz_fcmul_round_pch (m16, x1, x2, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcph-1b.c new file mode 100644 index 0000000..ee41f6c --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcph-1b.c @@ -0,0 +1,111 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS (AVX512F_LEN / 16) + +void NOINLINE +EMULATE(c_fmul_pch) (V512 * dest, V512 op1, V512 op2, + __mmask16 k, int zero_mask, int c_flag) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + for (i = 0; i < 16; i++) { + if (((1 << (i / 2)) & k) == 0) { + if (zero_mask) { + v5.f32[i] = 0; + } + else { + v5.u32[i] = v7.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v5.f32[i] = v1.f32[i] * v3.f32[i] + - invert * (v1.f32[i+1] * v3.f32[i+1]); + } + else { + v5.f32[i] = v1.f32[i] * v3.f32[i-1] + + invert * (v1.f32[i-1] * v3.f32[i]); + + } + } + if (((1 << (i / 2 + 8)) & k) == 0) { + if (zero_mask) { + v6.f32[i] = 0; + } + else { + v6.u32[i] = v8.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v6.f32[i] = v2.f32[i] * v4.f32[i] + - invert * (v2.f32[i+1] * v4.f32[i+1]); + } + else { + v6.f32[i] = v2.f32[i] * v4.f32[i-1] + + invert * (v2.f32[i-1] * v4.f32[i]); + } + + } + } + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + EMULATE(c_fmul_pch)(&exp, src1, src2, NET_CMASK, 0, 1); + HF(res) = INTRINSIC (_fcmul_pch) (HF(src1), HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _fcmul_pch); + + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 0, 1); + HF(res) = INTRINSIC (_mask_fcmul_pch) (HF(res) ,HALF_MASK, HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fcmul_pch); + + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 1, 1); + HF(res) = INTRINSIC (_maskz_fcmul_pch) ( HALF_MASK, HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fcmul_pch); + +#if AVX512F_LEN == 512 + EMULATE(c_fmul_pch)(&exp, src1, src2, NET_CMASK, 0, 1); + HF(res) = INTRINSIC (_fcmul_round_pch) (HF(src1), HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _fcmul_round_pch); + + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 0, 1); + HF(res) = INTRINSIC (_mask_fcmul_round_pch) (HF(res) ,HALF_MASK, HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fcmul_round_pch); + + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 1, 1); + HF(res) = INTRINSIC (_maskz_fcmul_round_pch) ( HALF_MASK, HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fcmul_round_pch); +#endif + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcsh-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcsh-1a.c new file mode 100644 index 0000000..872d91a --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcsh-1a.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfcmulcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcsh\[ \\t\]+\{rz-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m128h res, res1, res2; +volatile __m128h x1, x2, x3; +volatile __mmask8 m8; + +void extern +avx512f_test (void) +{ + res = _mm_fcmul_sch (x1, x2); + res1 = _mm_mask_fcmul_sch (res1, m8, x1, x2); + res2 = _mm_maskz_fcmul_sch (m8, x1, x2); + res = _mm_fcmul_round_sch (x1, x2, 8); + res1 = _mm_mask_fcmul_round_sch (res1, m8, x1, x2, 8); + res2 = _mm_maskz_fcmul_round_sch (m8, x1, x2, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcsh-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcsh-1b.c new file mode 100644 index 0000000..995df84 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfcmulcsh-1b.c @@ -0,0 +1,71 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS 8 + +void NOINLINE +EMULATE(c_fmul_csh) (V512 * dest, V512 op1, V512 op2, + __mmask8 k, int zero_mask, int c_flag) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + if ((k&1) || !k) { + v5.f32[0] = v1.f32[0] * v3.f32[0] + - invert * (v1.f32[1] * v3.f32[1]); + v5.f32[1] = v1.f32[1] * v3.f32[0] + + invert * (v1.f32[0] * v3.f32[1]); + } + else if (zero_mask) + v5.f32[0] = 0; + else + v5.f32[0] = v7.f32[0]; + + for (i = 2; i < 8; i++) + v5.f32[i] = v1.f32[i]; + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + init_dest(&res, &exp); + EMULATE(c_fmul_csh)(&exp, src1, src2, 0x1, 0 , 1); + res.xmmh[0] = _mm_fcmul_round_sch(src1.xmmh[0], src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_fcmul_sch); + + init_dest(&res, &exp); + EMULATE(c_fmul_csh)(&exp, src1, src2, 0x1, 0, 1); + res.xmmh[0] = _mm_mask_fcmul_round_sch(res.xmmh[0], 0x1, + src1.xmmh[0], src2.xmmh[0], + _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_mask_fcmul_sch); + + init_dest(&res, &exp); + EMULATE(c_fmul_csh)(&exp, src1, src2, 0x3, 1, 1); + res.xmmh[0] = _mm_maskz_fcmul_round_sch(0x3, src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_maskz_fcmul_sch); + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcph-1a.c new file mode 100644 index 0000000..4dae5f0 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcph-1a.c @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\{rz-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m512h res, res1, res2; +volatile __m512h x1, x2, x3; +volatile __mmask16 m16; + +void extern +avx512f_test (void) +{ + res = _mm512_fmadd_pch (x1, x2, x3); + res1 = _mm512_mask_fmadd_pch (res1, m16, x1, x2); + res1 = _mm512_mask3_fmadd_pch (res1, x1, x2, m16); + res2 = _mm512_maskz_fmadd_pch (m16, x1, x2, x3); + res = _mm512_fmadd_round_pch (x1, x2, x3, 8); + res1 = _mm512_mask_fmadd_round_pch (res1, m16, x1, x2, 8); + res1 = _mm512_mask3_fmadd_round_pch (res1, x1, x2, m16, 8); + res2 = _mm512_maskz_fmadd_round_pch (m16, x1, x2, x3, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcph-1b.c new file mode 100644 index 0000000..1da6f01 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcph-1b.c @@ -0,0 +1,131 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS (AVX512F_LEN / 16) + +void NOINLINE +EMULATE(c_fmadd_pch) (V512 * dest, V512 op1, V512 op2, + __mmask16 k, int zero_mask, int c_flag, + int is_mask3) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + for (i = 0; i < 16; i++) { + if (((1 << (i / 2)) & k) == 0) { + if (zero_mask) { + v5.f32[i] = 0; + } + else { + v5.u32[i] = is_mask3 ? v3.u32[i] : v7.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v5.f32[i] = v1.f32[i] * v7.f32[i] + - invert * (v1.f32[i+1] * v7.f32[i+1]) + v3.f32[i]; + } + else { + v5.f32[i] = v1.f32[i-1] * v7.f32[i] + + invert * (v1.f32[i] * v7.f32[i-1]) + v3.f32[i]; + + } + } + if (((1 << (i / 2 + 8)) & k) == 0) { + if (zero_mask) { + v6.f32[i] = 0; + } + else { + v6.u32[i] = is_mask3 ? v4.u32[i] : v8.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v6.f32[i] = v2.f32[i] * v8.f32[i] + - invert * (v2.f32[i+1] * v8.f32[i+1]) + v4.f32[i]; + } + else { + v6.f32[i] = v2.f32[i-1] * v8.f32[i] + + invert * (v2.f32[i] * v8.f32[i-1]) + v4.f32[i]; + } + + } + } + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, NET_CMASK, 0, 0, 0); + HF(res) = INTRINSIC (_fmadd_pch) (HF(res), HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _fmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 0, 0); + HF(res) = INTRINSIC (_mask_fmadd_pch) (HF(res), HALF_MASK, HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 0, 1); + HF(res) = INTRINSIC (_mask3_fmadd_pch) (HF(res), HF(src1), HF(src2), + HALF_MASK); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask3_fmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 1, 0, 0); + HF(res) = INTRINSIC (_maskz_fmadd_pch) (HALF_MASK, HF(res), HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fmadd_pch); + +#if AVX512F_LEN == 512 + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, NET_CMASK, 0, 0, 0); + HF(res) = INTRINSIC (_fmadd_round_pch) (HF(res), HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _fmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 0, 0); + HF(res) = INTRINSIC (_mask_fmadd_round_pch) (HF(res), HALF_MASK, HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 0, 0, 1); + HF(res) = INTRINSIC (_mask3_fmadd_round_pch) (HF(res), HF(src1), HF(src2), + HALF_MASK, _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask3_fmadd_pch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_pch)(&exp, src1, src2, HALF_MASK, 1, 0, 0); + HF(res) = INTRINSIC (_maskz_fmadd_round_pch) (HALF_MASK, HF(res), HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fmadd_pch); +#endif + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcsh-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcsh-1a.c new file mode 100644 index 0000000..1e376b4 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcsh-1a.c @@ -0,0 +1,27 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfmaddcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfmaddcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfmaddcsh\[ \\t\]+\{rz-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m128h res, res1, res2; +volatile __m128h x1, x2, x3; +volatile __mmask8 m8; + +void extern +avx128f_test (void) +{ + res = _mm_fmadd_sch (x1, x2, x3); + res1 = _mm_mask_fmadd_sch (res1, m8, x1, x2); + res1 = _mm_mask3_fmadd_sch (res1, x1, x2, m8); + res2 = _mm_maskz_fmadd_sch (m8, x1, x2, x3); + res = _mm_fmadd_round_sch (x1, x2, x3, 8); + res1 = _mm_mask_fmadd_round_sch (res1, m8, x1, x2, 8); + res1 = _mm_mask3_fmadd_round_sch (res1, x1, x2, m8, 8); + res2 = _mm_maskz_fmadd_round_sch (m8, x1, x2, x3, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcsh-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcsh-1b.c new file mode 100644 index 0000000..4c74e01 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmaddcsh-1b.c @@ -0,0 +1,77 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS 8 + +void NOINLINE +EMULATE(c_fmadd_csh) (V512 * dest, V512 op1, V512 op2, + __mmask8 k, int zero_mask, int c_flag, + int is_mask3) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + if ((k&1) || !k) { + v5.f32[0] = v1.f32[0] * v7.f32[0] + - invert * (v1.f32[1] * v7.f32[1]) + v3.f32[0]; + v5.f32[1] = v1.f32[0] * v7.f32[1] + + invert * (v1.f32[1] * v7.f32[0]) + v3.f32[1]; + } + else if (zero_mask) + v5.f32[0] = 0; + else + v5.f32[0] = v7.f32[0]; + + for (i = 2; i < 8; i++) + v5.f32[i] = is_mask3? v3.f32[i] : v7.f32[i]; + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x1, 0, 0, 0); + res.xmmh[0] = _mm_fmadd_round_sch(res.xmmh[0], src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_fmadd_sch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x1, 0, 0, 0); + res.xmmh[0] = _mm_mask_fmadd_round_sch(res.xmmh[0], 0x1, src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_mask_fmadd_sch); + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x1, 0, 0, 1); + res.xmmh[0] = _mm_mask3_fmadd_round_sch(res.xmmh[0], src1.xmmh[0], src2.xmmh[0], + 0x1, _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_mask3_fmadd_sch); + + init_dest(&res, &exp); + EMULATE(c_fmadd_csh)(&exp, src1, src2, 0x3, 1, 0, 0); + res.xmmh[0] = _mm_maskz_fmadd_round_sch(0x3, res.xmmh[0], src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_maskz_fmadd_sch); + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcph-1a.c new file mode 100644 index 0000000..f31cbca --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcph-1a.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\{rn-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\{rz-sae\}\[^\{\n\]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\[^\n\r]*%zmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m512h res, res1, res2; +volatile __m512h x1, x2, x3; +volatile __mmask16 m16; + +void extern +avx512f_test (void) +{ + res = _mm512_fmul_pch (x1, x2); + res1 = _mm512_mask_fmul_pch (res1, m16, x1, x2); + res2 = _mm512_maskz_fmul_pch (m16, x1, x2); + res = _mm512_fmul_round_pch (x1, x2, 8); + res1 = _mm512_mask_fmul_round_pch (res1, m16, x1, x2, 8); + res2 = _mm512_maskz_fmul_round_pch (m16, x1, x2, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcph-1b.c new file mode 100644 index 0000000..d9bb1b0 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcph-1b.c @@ -0,0 +1,115 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS (AVX512F_LEN / 16) + +void NOINLINE +EMULATE(c_fmul_pch) (V512 * dest, V512 op1, V512 op2, + __mmask16 k, int zero_mask, int c_flag) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + for (i = 0; i < 16; i++) { + if (((1 << (i / 2)) & k) == 0) { + if (zero_mask) { + v5.f32[i] = 0; + } + else { + v5.u32[i] = v7.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v5.f32[i] = v1.f32[i] * v3.f32[i] + - invert * (v1.f32[i+1] * v3.f32[i+1]); + } + else { + v5.f32[i] = v1.f32[i-1] * v3.f32[i] + + invert * (v1.f32[i] * v3.f32[i-1]); + + } + } + if (((1 << (i / 2 + 8)) & k) == 0) { + if (zero_mask) { + v6.f32[i] = 0; + } + else { + v6.u32[i] = v8.u32[i]; + } + } + else { + if ((i % 2) == 0) { + v6.f32[i] = v2.f32[i] * v4.f32[i] + - invert * (v2.f32[i+1] * v4.f32[i+1]); + } + else { + v6.f32[i] = v2.f32[i-1] * v4.f32[i] + + invert * (v2.f32[i] * v4.f32[i-1]); + } + + } + } + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + EMULATE(c_fmul_pch)(&exp, src1, src2, NET_CMASK, 0, 0); + HF(res) = INTRINSIC (_fmul_pch) (HF(src1), HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _fmul_pch); + + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 0, 0); + HF(res) = INTRINSIC (_mask_fmul_pch) (HF(res),HALF_MASK, HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fmul_pch); + + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 1, 0); + HF(res) = INTRINSIC (_maskz_fmul_pch) (HALF_MASK, HF(src1), + HF(src2)); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fmul_pch); + +#if AVX512F_LEN == 512 + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, NET_CMASK, 0, 0); + HF(res) = INTRINSIC (_fmul_round_pch) (HF(src1), HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _fmul_pch); + + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 0, 0); + HF(res) = INTRINSIC (_mask_fmul_round_pch) (HF(res),HALF_MASK, HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mask_fmul_pch); + + init_dest(&res, &exp); + EMULATE(c_fmul_pch)(&exp, src1, src2, HALF_MASK, 1, 0); + HF(res) = INTRINSIC (_maskz_fmul_round_pch) (HALF_MASK, HF(src1), + HF(src2), _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _maskz_fmul_pch); +#endif + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcsh-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcsh-1a.c new file mode 100644 index 0000000..5d48874 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcsh-1a.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -O2" } */ +/* { dg-final { scan-assembler-times "vfmulcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\{\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcsh\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcsh\[ \\t\]+\{rn-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcsh\[ \\t\]+\{rz-sae\}\[^\{\n\]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m128h res, res1, res2; +volatile __m128h x1, x2, x3; +volatile __mmask8 m8; + +void extern +avx512f_test (void) +{ + res = _mm_fmul_sch (x1, x2); + res1 = _mm_mask_fmul_sch (res1, m8, x1, x2); + res2 = _mm_maskz_fmul_sch (m8, x1, x2); + res = _mm_fmul_round_sch (x1, x2, 8); + res1 = _mm_mask_fmul_round_sch (res1, m8, x1, x2, 8); + res2 = _mm_maskz_fmul_round_sch (m8, x1, x2, 11); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcsh-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcsh-1b.c new file mode 100644 index 0000000..45840d6 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16-vfmulcsh-1b.c @@ -0,0 +1,71 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512dq" } */ + + +#define AVX512FP16 +#include "avx512fp16-helper.h" + +#define N_ELEMS 8 + +void NOINLINE +EMULATE(c_fmul_csh) (V512 * dest, V512 op1, V512 op2, + __mmask8 k, int zero_mask, int c_flag) +{ + V512 v1, v2, v3, v4, v5, v6, v7, v8; + int i; + int invert = 1; + if (c_flag == 1) + invert = -1; + + unpack_ph_2twops(op1, &v1, &v2); + unpack_ph_2twops(op2, &v3, &v4); + unpack_ph_2twops(*dest, &v7, &v8); + + if ((k&1) || !k) { + v5.f32[0] = v1.f32[0] * v3.f32[0] + - invert * (v1.f32[1] * v3.f32[1]); + v5.f32[1] = v1.f32[0] * v3.f32[1] + + invert * (v1.f32[1] * v3.f32[0]); + } + else if (zero_mask) + v5.f32[0] = 0; + else + v5.f32[0] = v7.f32[0]; + + for (i = 2; i < 8; i++) + v5.f32[i] = v1.f32[i]; + + *dest = pack_twops_2ph(v5, v6); +} + +void +TEST (void) +{ + V512 res; + V512 exp; + + init_src(); + + init_dest(&res, &exp); + EMULATE(c_fmul_csh)(&exp, src1, src2, 0x1, 0 , 0); + res.xmmh[0] = _mm_fmul_round_sch(src1.xmmh[0], src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_fmul_sch); + + init_dest(&res, &exp); + EMULATE(c_fmul_csh)(&exp, src1, src2, 0x1, 0, 0); + res.xmmh[0] = _mm_mask_fmul_round_sch(res.xmmh[0], 0x1, + src1.xmmh[0], src2.xmmh[0], + _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_mask_fmul_sch); + + init_dest(&res, &exp); + EMULATE(c_fmul_csh)(&exp, src1, src2, 0x3, 1, 0); + res.xmmh[0] = _mm_maskz_fmul_round_sch(0x3, src1.xmmh[0], + src2.xmmh[0], _ROUND_NINT); + CHECK_RESULT (&res, &exp, N_ELEMS, _mm_maskz_fmul_sch); + + if (n_errs != 0) { + abort (); + } +} + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-builtin-sqrt-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-builtin-sqrt-1.c new file mode 100644 index 0000000..08deb3e --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-builtin-sqrt-1.c @@ -0,0 +1,19 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16 -mavx512vl" } */ + +void +f1 (_Float16* __restrict psrc, _Float16* __restrict pdst) +{ + for (int i = 0; i != 8; i++) + pdst[i] = __builtin_sqrtf16 (psrc[i]); +} + +void +f2 (_Float16* __restrict psrc, _Float16* __restrict pdst) +{ + for (int i = 0; i != 16; i++) + pdst[i] = __builtin_sqrtf16 (psrc[i]); +} + +/* { dg-final { scan-assembler-times "vsqrtph\[^\n\r\]*xmm\[0-9\]" 1 } } */ +/* { dg-final { scan-assembler-times "vsqrtph\[^\n\r\]*ymm\[0-9\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-conjugation-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-conjugation-1.c new file mode 100644 index 0000000..d8fdab7 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-conjugation-1.c @@ -0,0 +1,55 @@ +/* { dg-do compile} */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mavx512dq" } */ + +#include <immintrin.h> +__m256h +__attribute__ ((noinline, noclone)) +test_mm256_conj_pch (__m256h __A) +{ + return _mm256_conj_pch (__A); +} + +/* { dg-final { scan-assembler-times "vpxor\[^\n\]*%ymm\[0-9\]+" 3 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +test_mm_conj_pch (__m128h __A) +{ + return _mm_conj_pch (__A); +} + +/* { dg-final { scan-assembler-times "vpxor\[^\n\]*%xmm\[0-9\]+" 3 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +test_mm256_mask_conj_pch (__m256h __W, __mmask8 __U, __m256h __A) +{ + return _mm256_mask_conj_pch (__W, __U, __A); +} + +/* { dg-final { scan-assembler-times "vmovaps\[^\n\]*%ymm\[0-9\]+" 2 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +test_mm_mask_conj_pch (__m128h __W, __mmask8 __U, __m128h __A) +{ + return _mm_mask_conj_pch (__W, __U, __A); +} + +/* { dg-final { scan-assembler-times "vmovaps\[^\n\]*%xmm\[0-9\]+" 2 } } */ + +__m256h +__attribute__ ((noinline, noclone)) +test_mm256_maskz_conj_pch (__mmask8 __U, __m256h __A) +{ + return _mm256_maskz_conj_pch (__U, __A); +} +/* { dg-final { scan-assembler-times "vmovaps\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ + +__m128h +__attribute__ ((noinline, noclone)) +test_mm_maskz_conj_pch (__mmask8 __U, __m128h __A) { + return _mm_maskz_conj_pch (__U, __A); +} + +/* { dg-final { scan-assembler-times "vmovaps\[ \\t\]+\[^\{\n\]*%xmm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-fma-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-fma-1.c new file mode 100644 index 0000000..1a832f3 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-fma-1.c @@ -0,0 +1,70 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16 -mavx512vl" } */ + +typedef _Float16 v8hf __attribute__ ((__vector_size__ (16))); +typedef _Float16 v16hf __attribute__ ((__vector_size__ (32))); + +v8hf +foo1 (v8hf a, v8hf b, v8hf c) +{ + return a * b + c; +} + +/* { dg-final { scan-assembler-times "vfmadd132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +v8hf +foo2 (v8hf a, v8hf b, v8hf c) +{ + return -a * b + c; +} + +/* { dg-final { scan-assembler-times "vfnmadd132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +v8hf +foo3 (v8hf a, v8hf b, v8hf c) +{ + return a * b - c; +} + +/* { dg-final { scan-assembler-times "vfmsub132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +v8hf +foo4 (v8hf a, v8hf b, v8hf c) +{ + return -a * b - c; +} + +/* { dg-final { scan-assembler-times "vfnmsub132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +v16hf +foo5 (v16hf a, v16hf b, v16hf c) +{ + return a * b + c; +} + +/* { dg-final { scan-assembler-times "vfmadd132ph\[^\n\r\]*ymm\[0-9\]" 1 } } */ + +v16hf +foo6 (v16hf a, v16hf b, v16hf c) +{ + return -a * b + c; +} + +/* { dg-final { scan-assembler-times "vfnmadd132ph\[^\n\r\]*ymm\[0-9\]" 1 } } */ + +v16hf +foo7 (v16hf a, v16hf b, v16hf c) +{ + return a * b - c; +} + +/* { dg-final { scan-assembler-times "vfmsub132ph\[^\n\r\]*ymm\[0-9\]" 1 } } */ + +v16hf +foo8 (v16hf a, v16hf b, v16hf c) +{ + return -a * b - c; +} + +/* { dg-final { scan-assembler-times "vfnmsub132ph\[^\n\r\]*ymm\[0-9\]" 1 } } */ + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-fma-vectorize-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-fma-vectorize-1.c new file mode 100644 index 0000000..d0b8bec --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-fma-vectorize-1.c @@ -0,0 +1,45 @@ +/* { dg-do compile } */ +/* { dg-options "-Ofast -mavx512fp16 -mavx512vl" } */ + +typedef _Float16 v8hf __attribute__ ((__vector_size__ (16))); +typedef _Float16 v16hf __attribute__ ((__vector_size__ (32))); + +void +foo1 (_Float16* __restrict pa, _Float16* __restrict pb, + _Float16* __restrict pc, _Float16* __restrict pd) +{ + for (int i = 0; i != 8; i++) + pd[i] = pa[i] * pb[i] + pc[i]; +} + +/* { dg-final { scan-assembler-times "vfmadd132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +void +foo2 (_Float16* __restrict pa, _Float16* __restrict pb, + _Float16* __restrict pc, _Float16* __restrict pd) +{ + for (int i = 0; i != 8; i++) + pd[i] = -pa[i] * pb[i] + pc[i]; +} + +/* { dg-final { scan-assembler-times "vfnmadd132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +void +foo3 (_Float16* __restrict pa, _Float16* __restrict pb, + _Float16* __restrict pc, _Float16* __restrict pd) +{ + for (int i = 0; i != 8; i++) + pd[i] = pa[i] * pb[i] - pc[i]; +} + +/* { dg-final { scan-assembler-times "vfmsub132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ + +void +foo4 (_Float16* __restrict pa, _Float16* __restrict pb, + _Float16* __restrict pc, _Float16* __restrict pd) +{ + for (int i = 0; i != 8; i++) + pd[i] = -pa[i] * pb[i] - pc[i]; +} + +/* { dg-final { scan-assembler-times "vfnmsub132ph\[^\n\r\]*xmm\[0-9\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-reduce-op-1.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-reduce-op-1.c new file mode 100644 index 0000000..70485d8 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-reduce-op-1.c @@ -0,0 +1,244 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl" } */ + +static void do_test (void); + +#define DO_TEST do_test +#define AVX512FP16 + +#include <immintrin.h> +#include "avx512-check.h" + +__m256h a1 = { -39.3f16, -180.9f16, 13.4f16, 35.4f16, -41.1f16, -14.4f16, 24.5f16, 53.54f16, + 238.4f16, -134.8f16, 24.5f16, 35.6f16, -346.7f16, -43.4f16, -535.3f16, 324.7f16 }; +__m256h a2 = { 82.5f16, 21.4f16, 24.4f16, 53.4f16, 23.5f16, -24.4f16, -34.5f16, -32.5f16, + 23.6f16, -13.4f16, 24.5f16, 35.5f16, -34.4f16, -24.5f16, -34.5f16, 13.5f16 }; + +__m128h b1 = { 1.25f16, 2.25f16, -0.25f16, 4.0f16, -2.0f16, 4.0f16, -3.0f16, 2.0f16 }; +__m128h b2 = { -0.5f16, -1.0f16, 1.0f16, -1.0f16, 1.0f16, 1.0f16, 2.0f16, 4.0f16 }; +__m128h b3 = { 1.25f16, 2.25f16, -4.25f16, 4.0f16, -2.4f16, 4.0f16, -3.0f, 2.0f16 }; +__m128h b4 = { -4.5f16, 7.6f16, 0.7f16, -8.2f16, 2.1f16, 2.4f16, -2.0f16, 1.4f16 }; + +__attribute__((noinline, noclone)) _Float16 +test_reduce_256_add_ph (__m256h a) +{ + return _mm256_reduce_add_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_256_mul_ph (__m256h a) +{ + return _mm256_reduce_mul_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_256_max_ph (__m256h a) +{ + return _mm256_reduce_max_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_256_min_ph (__m256h a) +{ + return _mm256_reduce_min_ph (a); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_add_ph (__m128h b) +{ + return _mm_reduce_add_ph (b); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_mul_ph (__m128h b) +{ + return _mm_reduce_mul_ph (b); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_max_ph (__m128h b) +{ + return _mm_reduce_max_ph (b); +} + +__attribute__((noinline, noclone)) _Float16 +test_reduce_min_ph (__m128h b) +{ + return _mm_reduce_min_ph (b); +} + +#define SIZE 16 +#define REF_ADDMUL(op, a) \ + __m128h __a1 = _mm_setzero_ph (); \ + for (int i = 0; i < 8; i++) { \ + __a1[i] = (_Float16) a[i] op (_Float16) a[i + 8]; \ + } \ + _Float16 __c0 = __a1[0] op __a1[4]; \ + _Float16 __c1 = __a1[1] op __a1[5]; \ + _Float16 __c2 = __a1[2] op __a1[6]; \ + _Float16 __c3 = __a1[3] op __a1[7]; \ + _Float16 __d0 = __c0 op __c2; \ + _Float16 __d1 = __c1 op __c3; \ + _Float16 __e0 = __d0 op __d1; \ + r3 = __e0 + +#define TESTOP(opname, op, a) \ + do { \ + _Float16 r1 = _mm256_reduce_##opname##_ph (a); \ + _Float16 r2 = test_reduce_256_##opname##_ph (a); \ + _Float16 r3 = a[0]; \ + if (r1 != r2) { \ + __builtin_abort (); \ + } \ + REF_ADDMUL (op, a); \ + if (r1 != r3) { \ + __builtin_abort (); \ + } \ + } while (0) + +#define TEST_ADDMUL_PH(a) \ + do { \ + TESTOP (add, +, a); \ + TESTOP (mul, *, a); \ + } while (0) + +static void +test_256_addmul_ph (void) +{ + TEST_ADDMUL_PH (a1); + TEST_ADDMUL_PH (a2); +} + +#undef TESTOP +#define TESTOP(opname, op, a) \ + do { \ + _Float16 r1 = _mm256_reduce_##opname##_ph (a); \ + _Float16 r2 = test_reduce_256_##opname##_ph (a); \ + _Float16 r3 = a[0]; \ + if (r1 != r2) { \ + __builtin_abort (); \ + } \ + for (int i = 1; i < SIZE; i++) \ + r3 = r3 op a[i]; \ + if (r1 != r3) { \ + __builtin_abort (); \ + } \ + } while (0) + +#define TEST_MINMAX_PH(a) \ + do { \ + TESTOP (min, < a[i] ? r3 :, a); \ + TESTOP (max, > a[i] ? r3 :, a); \ + } while (0) + +static void +test_256_minmax_ph (void) +{ + TEST_MINMAX_PH (a1); + TEST_MINMAX_PH (a2); +} + +static void +test_256_ph (void) +{ + test_256_addmul_ph (); + test_256_minmax_ph (); +} + +#undef SIZE +#define SIZE 8 + +#undef REF_ADDMUL +#define REF_ADDMUL(op, a) \ + _Float16 __c0 = a[0] op a[4]; \ + _Float16 __c1 = a[1] op a[5]; \ + _Float16 __c2 = a[2] op a[6]; \ + _Float16 __c3 = a[3] op a[7]; \ + _Float16 __d0 = __c0 op __c2; \ + _Float16 __d1 = __c1 op __c3; \ + _Float16 __e0 = __d0 op __d1; \ + r3 = __e0 + +#undef TESTOP +#define TESTOP(opname, op, a) \ + do { \ + _Float16 r1 = _mm_reduce_##opname##_ph (a); \ + _Float16 r2 = test_reduce_##opname##_ph (a); \ + _Float16 r3 = a[0]; \ + if (r1 != r2) { \ + __builtin_abort (); \ + } \ + REF_ADDMUL (op, a); \ + if (r1 != r3) { \ + __builtin_abort (); \ + } \ + } while (0) + +#undef TEST_ADDMUL_PH +#define TEST_ADDMUL_PH(a) \ + do { \ + TESTOP (add, +, a); \ + TESTOP (mul, *, a); \ + } while (0) + +static void +test_128_addmul_ph (void) +{ + TEST_ADDMUL_PH (b1); + TEST_ADDMUL_PH (b2); + TEST_ADDMUL_PH (b3); + TEST_ADDMUL_PH (b4); +} + +#undef TESTOP +#define TESTOP(opname, op, b) \ + do { \ + _Float16 r1 = _mm_reduce_##opname##_ph (b); \ + _Float16 r2 = test_reduce_##opname##_ph (b); \ + _Float16 r3 = b[0]; \ + if (r1 != r2) { \ + __builtin_abort (); \ + } \ + for (int i = 1; i < SIZE; i++) \ + r3 = r3 op b[i]; \ + if (r1 != r3) { \ + __builtin_abort (); \ + } \ + } while (0) + +#undef TEST_MINMAX_PH +#define TEST_MINMAX_PH(b) \ + do { \ + TESTOP (min, < b[i] ? r3 :, b); \ + TESTOP (max, > b[i] ? r3 :, b); \ + } while (0) + +static void +test_128_minmax_ph (void) +{ + TEST_MINMAX_PH (b1); + TEST_MINMAX_PH (b2); + TEST_MINMAX_PH (b3); + TEST_MINMAX_PH (b4); +} + +static void +test_128_ph (void) +{ + test_128_addmul_ph (); + test_128_minmax_ph (); +} + +static void +do_test (void) +{ + test_256_ph (); + test_128_ph (); +} + + +#undef SIZE +#undef REF_ADDMUL +#undef TESTOP +#undef TEST_ADDMUL_PH +#undef TEST_MINMAX_PH diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmaddcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmaddcph-1a.c new file mode 100644 index 0000000..eff1381 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmaddcph-1a.c @@ -0,0 +1,30 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -mavx512vl -O2" } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfcmaddcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m256h res1; +volatile __m128h res2; +volatile __m256h x1, x2, x3; +volatile __m128h x4, x5, x6; +volatile __mmask8 m8; + +void extern +avx512f_test (void) +{ + res1 = _mm256_fcmadd_pch (x1, x2, x3); + res1 = _mm256_mask_fcmadd_pch (res1, m8, x1, x2); + res1 = _mm256_mask3_fcmadd_pch (res1, x1, x2, m8); + res1 = _mm256_maskz_fcmadd_pch (m8, x1, x2, x3); + + res2 = _mm_fcmadd_pch (x4, x5, x6); + res2 = _mm_mask_fcmadd_pch (res2, m8, x4, x5); + res2 = _mm_mask3_fcmadd_pch (res2, x4, x5, m8); + res2 = _mm_maskz_fcmadd_pch (m8, x4, x5, x6); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmaddcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmaddcph-1b.c new file mode 100644 index 0000000..5e3a54e --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmaddcph-1b.c @@ -0,0 +1,15 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mavx512dq" } */ + +#define AVX512VL +#define AVX512F_LEN 256 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfcmaddcph-1b.c" + +#undef AVX512F_LEN +#undef AVX512F_LEN_HALF + +#define AVX512F_LEN 128 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfcmaddcph-1b.c" + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmulcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmulcph-1a.c new file mode 100644 index 0000000..4e48e9c --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmulcph-1a.c @@ -0,0 +1,28 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512f -mavx512fp16 -mavx512vl -O2" } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfcmulcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m256h res1; +volatile __m128h res2; +volatile __m256h x1, x2, x3; +volatile __m128h x4, x5, x6; +volatile __mmask8 m8; + +void extern +avx512f_test (void) +{ + res1 = _mm256_fcmul_pch (x1, x2); + res1 = _mm256_mask_fcmul_pch (res1, m8, x1, x2); + res1 = _mm256_maskz_fcmul_pch (m8, x1, x2); + + res2 = _mm_fcmul_pch (x4, x5); + res2 = _mm_mask_fcmul_pch (res2, m8, x4, x5); + res2 = _mm_maskz_fcmul_pch (m8, x4, x5); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmulcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmulcph-1b.c new file mode 100644 index 0000000..19564a1 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfcmulcph-1b.c @@ -0,0 +1,15 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mavx512dq" } */ + +#define AVX512VL +#define AVX512F_LEN 256 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfcmulcph-1b.c" + +#undef AVX512F_LEN +#undef AVX512F_LEN_HALF + +#define AVX512F_LEN 128 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfcmulcph-1b.c" + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmaddcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmaddcph-1a.c new file mode 100644 index 0000000..b9a24d0 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmaddcph-1a.c @@ -0,0 +1,30 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512fp16 -mavx512vl -O2" } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 2 } } */ +/* { dg-final { scan-assembler-times "vfmaddcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m256h res1; +volatile __m128h res2; +volatile __m256h x1, x2, x3; +volatile __m128h x4, x5, x6; +volatile __mmask8 m8; + +void extern +avx512f_test (void) +{ + res1 = _mm256_fmadd_pch (x1, x2, x3); + res1 = _mm256_mask_fmadd_pch (res1, m8, x1, x2); + res1 = _mm256_mask3_fmadd_pch (res1, x1, x2, m8); + res1 = _mm256_maskz_fmadd_pch (m8, x1, x2, x3); + + res2 = _mm_fmadd_pch (x4, x5, x6); + res2 = _mm_mask_fmadd_pch (res2, m8, x4, x5); + res2 = _mm_mask3_fmadd_pch (res2, x4, x5, m8); + res2 = _mm_maskz_fmadd_pch (m8, x4, x5, x6); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmaddcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmaddcph-1b.c new file mode 100644 index 0000000..bf85fea --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmaddcph-1b.c @@ -0,0 +1,15 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mavx512dq" } */ + +#define AVX512VL +#define AVX512F_LEN 256 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfmaddcph-1b.c" + +#undef AVX512F_LEN +#undef AVX512F_LEN_HALF + +#define AVX512F_LEN 128 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfmaddcph-1b.c" + diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmulcph-1a.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmulcph-1a.c new file mode 100644 index 0000000..54e58c6 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmulcph-1a.c @@ -0,0 +1,28 @@ +/* { dg-do compile } */ +/* { dg-options "-mavx512f -mavx512fp16 -mavx512vl -O2" } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\[^\n\r]*%ymm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmulcph\[ \\t\]+%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\[^\n\r]*%xmm\[0-9\]+\{%k\[0-9\]\}\{z\}\[^\n\r]*(?:\n|\[ \\t\]+#)" 1 } } */ + +#include <immintrin.h> + +volatile __m256h res1; +volatile __m128h res2; +volatile __m256h x1, x2, x3; +volatile __m128h x4, x5, x6; +volatile __mmask8 m8; + +void extern +avx512f_test (void) +{ + res1 = _mm256_fmul_pch (x1, x2); + res1 = _mm256_mask_fmul_pch (res1, m8, x1, x2); + res1 = _mm256_maskz_fmul_pch (m8, x1, x2); + + res2 = _mm_fmul_pch (x4, x5); + res2 = _mm_mask_fmul_pch (res2, m8, x4, x5); + res2 = _mm_maskz_fmul_pch (m8, x4, x5); +} diff --git a/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmulcph-1b.c b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmulcph-1b.c new file mode 100644 index 0000000..f88d842 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512fp16vl-vfmulcph-1b.c @@ -0,0 +1,15 @@ +/* { dg-do run { target avx512fp16 } } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mavx512dq" } */ + +#define AVX512VL +#define AVX512F_LEN 256 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfmulcph-1b.c" + +#undef AVX512F_LEN +#undef AVX512F_LEN_HALF + +#define AVX512F_LEN 128 +#define AVX512F_LEN_HALF 128 +#include "avx512fp16-vfmulcph-1b.c" + diff --git a/gcc/testsuite/gcc.target/i386/avx512vl-pr95046.c b/gcc/testsuite/gcc.target/i386/avx512vl-pr95046.c new file mode 100644 index 0000000..02204d0 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/avx512vl-pr95046.c @@ -0,0 +1,10 @@ +/* PR target/95046 */ +/* { dg-do compile { target { ! ia32 } } } */ +/* { dg-options "-O3 -mavx512vl" } */ + +#include "pr95046-3.c" + +/* { dg-final { scan-assembler "\tvfmadd\[123\]+ps" } } */ +/* { dg-final { scan-assembler "\tvfmsub\[123\]+ps" } } */ +/* { dg-final { scan-assembler "\tvfnmadd\[123\]+ps" } } */ +/* { dg-final { scan-assembler "\tvfnmsub\[123\]+ps" } } */ diff --git a/gcc/testsuite/gcc.target/i386/cond_op_addsubmuldiv__Float16-1.c b/gcc/testsuite/gcc.target/i386/cond_op_addsubmuldiv__Float16-1.c new file mode 100644 index 0000000..b503b75 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/cond_op_addsubmuldiv__Float16-1.c @@ -0,0 +1,9 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -march=sapphirerapids -DTYPE=_Float16 -fdump-tree-vect" } */ +/* { dg-final { scan-tree-dump ".COND_ADD" "vect" } } */ +/* { dg-final { scan-tree-dump ".COND_SUB" "vect" } } */ +/* { dg-final { scan-tree-dump ".COND_MUL" "vect" } } */ +/* { dg-final { scan-tree-dump ".COND_RDIV" "vect" } } */ + +#include "cond_op_addsubmuldiv_double-1.c" + diff --git a/gcc/testsuite/gcc.target/i386/cond_op_addsubmuldiv__Float16-2.c b/gcc/testsuite/gcc.target/i386/cond_op_addsubmuldiv__Float16-2.c new file mode 100644 index 0000000..e8397bb --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/cond_op_addsubmuldiv__Float16-2.c @@ -0,0 +1,7 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mprefer-vector-width=256 -DTYPE=_Float16" } */ +/* { dg-require-effective-target avx512vl } */ +/* { dg-require-effective-target avx512fp16 } */ + +#define AVX512FP16 +#include "cond_op_addsubmuldiv_double-2.c" diff --git a/gcc/testsuite/gcc.target/i386/cond_op_fma__Float16-1.c b/gcc/testsuite/gcc.target/i386/cond_op_fma__Float16-1.c new file mode 100644 index 0000000..9ea45d6 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/cond_op_fma__Float16-1.c @@ -0,0 +1,20 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -march=sapphirerapids -DTYPE=_Float16 -fdump-tree-optimized -D__BUILTIN_FMA=__builtin_fmaf16" } */ +/* { dg-final { scan-tree-dump-times ".COND_FMA" 3 "optimized" } } */ +/* { dg-final { scan-tree-dump-times ".COND_FNMA" 3 "optimized" } } */ +/* { dg-final { scan-tree-dump-times ".COND_FMS" 3 "optimized" } } */ +/* { dg-final { scan-tree-dump-times ".COND_FNMS" 3 "optimized" } } */ +/* { dg-final { scan-assembler-times "vfmadd132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfnmadd132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmsub132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfnmsub132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}\{z\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmadd231ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfnmadd231ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmsub231ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfnmsub231ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmadd132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfnmadd132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfmsub132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ +/* { dg-final { scan-assembler-times "vfnmsub132ph\[ \\t\]+\[^\{\n\]*%ymm\[0-9\]+\{%k\[1-7\]\}(?:\n|\[ \\t\]+#)" 1 } } */ + +#include "cond_op_fma_double-1.c" diff --git a/gcc/testsuite/gcc.target/i386/cond_op_fma__Float16-2.c b/gcc/testsuite/gcc.target/i386/cond_op_fma__Float16-2.c new file mode 100644 index 0000000..b384ab8 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/cond_op_fma__Float16-2.c @@ -0,0 +1,7 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mprefer-vector-width=256 -DTYPE=_Float16 -D__BUILTIN_FMA=__builtin_fmaf16 -DNUM=100" } */ +/* { dg-require-effective-target avx512fp16 } */ +/* { dg-require-effective-target avx512vl } */ + +#define AVX512FP16 +#include "cond_op_fma_double-2.c" diff --git a/gcc/testsuite/gcc.target/i386/cond_op_maxmin__Float16-1.c b/gcc/testsuite/gcc.target/i386/cond_op_maxmin__Float16-1.c new file mode 100644 index 0000000..b094102 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/cond_op_maxmin__Float16-1.c @@ -0,0 +1,8 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -march=sapphirerapids -DTYPE=_Float16 -fdump-tree-optimized -DFN_MAX=__builtin_fmaxf16 -DFN_MIN=__builtin_fminf16" } */ +/* { dg-final { scan-tree-dump ".COND_MAX" "optimized" } } */ +/* { dg-final { scan-tree-dump ".COND_MIN" "optimized" } } */ +/* { dg-final { scan-assembler-times "vmaxph" 1 } } */ +/* { dg-final { scan-assembler-times "vminph" 1 } } */ + +#include "cond_op_maxmin_double-1.c" diff --git a/gcc/testsuite/gcc.target/i386/cond_op_maxmin__Float16-2.c b/gcc/testsuite/gcc.target/i386/cond_op_maxmin__Float16-2.c new file mode 100644 index 0000000..b07d044 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/cond_op_maxmin__Float16-2.c @@ -0,0 +1,7 @@ +/* { dg-do run } */ +/* { dg-options "-O2 -mavx512fp16 -mavx512vl -mprefer-vector-width=256 -DTYPE=_Float16 -DFN_MAX=__builtin_fmaxf16 -DFN_MIN=__builtin_fminf16 -ffast-math" } */ +/* { dg-require-effective-target avx512vl } */ +/* { dg-require-effective-target avx512fp16 } */ + +#define AVX512FP16 +#include "cond_op_maxmin_double-2.c" diff --git a/gcc/testsuite/gcc.target/i386/pr102230.c b/gcc/testsuite/gcc.target/i386/pr102230.c new file mode 100644 index 0000000..ad37f4f --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/pr102230.c @@ -0,0 +1,38 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -mavx512fp16" } */ + +typedef _Float16 v4hf __attribute__ ((vector_size (8))); +typedef _Float16 v2hf __attribute__ ((vector_size (4))); + +v4hf +v4hf_abi_1 (v4hf a) +{ + return a; +} + +v4hf +v4hf_abi_3 (v4hf a, v4hf b, v4hf c) +{ + return c; +} + +/* { dg-final { scan-assembler-times "movq\[\\t \]*%mm2, %mm0" 1 { target ia32 } } } */ +/* { dg-final { scan-assembler-times "vmovaps\[\\t \]*%xmm2, %xmm0" 1 { target { ! ia32 } } } } */ + +v4hf +v4hf_abi_4 (v4hf a, v4hf b, v4hf c, v4hf d) +{ + return d; +} + +/* { dg-final { scan-assembler-times "movq\[\\t \]*4\\(%esp\\), %mm0" 1 { target ia32 } } } */ +/* { dg-final { scan-assembler-times "vmovaps\[\\t \]*%xmm3, %xmm0" 1 { target { ! ia32 } } } } */ + +v2hf +v2hf_test (v2hf a, v2hf b, v2hf c, v2hf d) +{ + return b; +} + +/* { dg-final { scan-assembler-times "movl\[\\t \]*8\\(%esp\\), %eax" 1 { target ia32 } } } */ +/* { dg-final { scan-assembler-times "vmovaps\[\\t \]*%xmm1, %xmm0" 1 { target { ! ia32 } } } } */ diff --git a/gcc/testsuite/gcc.target/i386/pr102498.c b/gcc/testsuite/gcc.target/i386/pr102498.c new file mode 100644 index 0000000..44161c5 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/pr102498.c @@ -0,0 +1,59 @@ +/* PR target/102498 */ +/* { dg-do run { target fenv } } */ +/* { dg-options "-frounding-math" } */ + +#include <fenv.h> +#include <stdlib.h> + +__attribute__((noipa)) long double +fldlg2 (void) +{ + return 0.3010299956639811952256464283594894482L; +} + +__attribute__((noipa)) long double +fldln2 (void) +{ + return 0.6931471805599453094286904741849753009L; +} + +__attribute__((noipa)) long double +fldl2e (void) +{ + return 1.4426950408889634073876517827983434472L; +} + +__attribute__((noipa)) long double +fldl2t (void) +{ + return 3.3219280948873623478083405569094566090L; +} + +__attribute__((noipa)) long double +fldpi (void) +{ + return 3.1415926535897932385128089594061862044L; +} + +int +main () +{ + long double a = fldlg2 (); + long double b = fldln2 (); + long double c = fldl2e (); + long double d = fldl2t (); + long double e = fldpi (); + static int f[] = { FE_TONEAREST, FE_TOWARDZERO, FE_UPWARD, FE_DOWNWARD }; + int i; + for (i = 0; i < 4; i++) + { + fesetround (f[i]); + if (a != fldlg2 () + || b != fldln2 () + || c != fldl2e () + || d != fldl2t () + || e != fldpi ()) + abort (); + } + return 0; +} diff --git a/gcc/testsuite/gcc.target/i386/pr89954.c b/gcc/testsuite/gcc.target/i386/pr89954.c new file mode 100644 index 0000000..c1e9f3a --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/pr89954.c @@ -0,0 +1,45 @@ +/* PR target/89954 */ +/* { dg-do compile } */ +/* { dg-options "-O2" } */ + +signed char ab; + +short aw; + +int al; + +short sext_andbw (void) { return ab & -2; } +short sext_orbw (void) { return ab | -3; } +short sext_xorbw (void) { return ab ^ -4; } + +int sext_andbl (void) { return ab & -2; } +int sext_orbl (void) { return ab | -3; } +int sext_xorbl (void) { return ab ^ -4; } + +int sext_andwl (void) { return aw & -2; } +int sext_orwl (void) { return aw | -3; } +int sext_xorwl (void) { return aw ^ -4; } + +#ifdef __x86_64__ + +long long sext_andbq (void) { return ab & -2; } +long long sext_orbq (void) { return ab | -3; } +long long sext_xorbq (void) { return ab ^ -4; } + +long long sext_andwq (void) { return aw & -2; } +long long sext_orwq (void) { return aw | -3; } +long long sext_xorwq (void) { return aw ^ -4; } + +long long sext_andlq (void) { return al & -2; } +long long sext_orlq (void) { return al | -3; } +long long sext_xorlq (void) { return al ^ -4; } + +#endif + +/* { dg-final { scan-assembler-times "movsbw" 3 } } */ +/* { dg-final { scan-assembler-times "movsbl" 3 } } */ +/* { dg-final { scan-assembler-times "movswl" 3 } } */ + +/* { dg-final { scan-assembler-times "movsbq" 3 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "movswq" 3 { target { ! ia32 } } } } */ +/* { dg-final { scan-assembler-times "movslq" 3 { target { ! ia32 } } } } */ diff --git a/gcc/testsuite/gcc.target/i386/pr92658-avx512f.c b/gcc/testsuite/gcc.target/i386/pr92658-avx512f.c index e26b06e..9afb195 100644 --- a/gcc/testsuite/gcc.target/i386/pr92658-avx512f.c +++ b/gcc/testsuite/gcc.target/i386/pr92658-avx512f.c @@ -48,6 +48,10 @@ truncqb (v8qi * dst, v8di * __restrict src) tem[1] = (*src)[1]; tem[2] = (*src)[2]; tem[3] = (*src)[3]; + tem[4] = (*src)[4]; + tem[5] = (*src)[5]; + tem[6] = (*src)[6]; + tem[7] = (*src)[7]; dst[0] = *(v8qi *) tem; } @@ -100,7 +104,7 @@ truncdb (v16qi * dst, v16si * __restrict src) /* { dg-final { scan-assembler-times "vpmovqd" 1 } } */ /* { dg-final { scan-assembler-times "vpmovqw" 1 } } */ -/* { dg-final { scan-assembler-times "vpmovqb" 1 { xfail *-*-* } } } */ +/* { dg-final { scan-assembler-times "vpmovqb" 1 } } */ /* { dg-final { scan-assembler-times "vpmovdw" 1 } } */ /* { dg-final { scan-assembler-times "vpmovdb" 1 } } */ diff --git a/gcc/testsuite/gcc.target/i386/pr92658-avx512vl.c b/gcc/testsuite/gcc.target/i386/pr92658-avx512vl.c index 7ff9c19..ae6959e 100644 --- a/gcc/testsuite/gcc.target/i386/pr92658-avx512vl.c +++ b/gcc/testsuite/gcc.target/i386/pr92658-avx512vl.c @@ -123,6 +123,7 @@ truncdb_128 (v16qi * dst, v4si * __restrict src) /* { dg-final { scan-assembler-times "vpmovqd" 2 } } */ /* { dg-final { scan-assembler-times "vpmovqw" 2 } } */ -/* { dg-final { scan-assembler-times "vpmovqb" 2 { xfail *-*-* } } } */ +/* { dg-final { scan-assembler-times "vpmovqb\[ \t]*%ymm" 1 } } */ +/* { dg-final { scan-assembler-times "vpmovqb\[ \t]*%xmm" 1 { xfail *-*-* } } } */ /* { dg-final { scan-assembler-times "vpmovdw" 2 } } */ /* { dg-final { scan-assembler-times "vpmovdb" 2 } } */ diff --git a/gcc/testsuite/gcc.target/i386/sse-13.c b/gcc/testsuite/gcc.target/i386/sse-13.c index e9a838e..f6d54e3 100644 --- a/gcc/testsuite/gcc.target/i386/sse-13.c +++ b/gcc/testsuite/gcc.target/i386/sse-13.c @@ -804,6 +804,26 @@ #define __builtin_ia32_vfnmsubsh3_mask(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_mask(A, B, C, D, 8) #define __builtin_ia32_vfnmsubsh3_mask3(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_mask3(A, B, C, D, 8) #define __builtin_ia32_vfnmsubsh3_maskz(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_maskz(A, B, C, D, 8) +#define __builtin_ia32_vfcmaddcph512_round(A, B, C, D) __builtin_ia32_vfcmaddcph512_round(A, B, C, 8) +#define __builtin_ia32_vfcmaddcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfcmaddcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmaddcph512_maskz_round(B, C, D, A, E) __builtin_ia32_vfcmaddcph512_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmaddcph512_round(A, B, C, D) __builtin_ia32_vfmaddcph512_round(A, B, C, 8) +#define __builtin_ia32_vfmaddcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfmaddcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcph512_maskz_round(B, C, D, A, E) __builtin_ia32_vfmaddcph512_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmulcph512_round(A, B, C) __builtin_ia32_vfmulcph512_round(A, B, 8) +#define __builtin_ia32_vfmulcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfmulcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmulcph512_round(A, B, C) __builtin_ia32_vfcmulcph512_round(A, B, 8) +#define __builtin_ia32_vfcmulcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfcmulcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcsh_round(A, B, C, D) __builtin_ia32_vfmaddcsh_round(A, B, C, 8) +#define __builtin_ia32_vfmaddcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfmaddcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcsh_maskz_round(B, C, D, A, E) __builtin_ia32_vfmaddcsh_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfcmaddcsh_round(A, B, C, D) __builtin_ia32_vfcmaddcsh_round(A, B, C, 8) +#define __builtin_ia32_vfcmaddcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfcmaddcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmaddcsh_maskz_round(B, C, D, A, E) __builtin_ia32_vfcmaddcsh_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmulcsh_round(A, B, C) __builtin_ia32_vfmulcsh_round(A, B, 8) +#define __builtin_ia32_vfmulcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfmulcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmulcsh_round(A, B, C) __builtin_ia32_vfcmulcsh_round(A, B, 8) +#define __builtin_ia32_vfcmulcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfcmulcsh_mask_round(A, C, D, B, 8) /* avx512fp16vlintrin.h */ #define __builtin_ia32_cmpph128_mask(A, B, C, D) __builtin_ia32_cmpph128_mask(A, B, 1, D) diff --git a/gcc/testsuite/gcc.target/i386/sse-14.c b/gcc/testsuite/gcc.target/i386/sse-14.c index 01ac4e0..956a9d1 100644 --- a/gcc/testsuite/gcc.target/i386/sse-14.c +++ b/gcc/testsuite/gcc.target/i386/sse-14.c @@ -772,6 +772,10 @@ test_2 (_mm_cvt_roundss_sh, __m128h, __m128h, __m128, 8) test_2 (_mm_cvt_roundsd_sh, __m128h, __m128h, __m128d, 8) test_2 (_mm_cvt_roundi32_sh, __m128h, __m128h, int, 8) test_2 (_mm_cvt_roundu32_sh, __m128h, __m128h, unsigned, 8) +test_2 (_mm512_fmul_round_pch, __m512h, __m512h, __m512h, 8) +test_2 (_mm512_fcmul_round_pch, __m512h, __m512h, __m512h, 8) +test_2 (_mm_fmul_round_sch, __m128h, __m128h, __m128h, 8) +test_2 (_mm_fcmul_round_sch, __m128h, __m128h, __m128h, 8) test_2x (_mm512_cmp_round_ph_mask, __mmask32, __m512h, __m512h, 1, 8) test_2x (_mm_cmp_round_sh_mask, __mmask8, __m128h, __m128h, 1, 8) test_2x (_mm_comi_round_sh, int, __m128h, __m128h, 1, 8) @@ -846,6 +850,14 @@ test_3 (_mm_fmadd_round_sh, __m128h, __m128h, __m128h, __m128h, 9) test_3 (_mm_fnmadd_round_sh, __m128h, __m128h, __m128h, __m128h, 9) test_3 (_mm_fmsub_round_sh, __m128h, __m128h, __m128h, __m128h, 9) test_3 (_mm_fnmsub_round_sh, __m128h, __m128h, __m128h, __m128h, 9) +test_3 (_mm512_fmadd_round_pch, __m512h, __m512h, __m512h, __m512h, 8) +test_3 (_mm512_fcmadd_round_pch, __m512h, __m512h, __m512h, __m512h, 8) +test_3 (_mm_fmadd_round_sch, __m128h, __m128h, __m128h, __m128h, 8) +test_3 (_mm_fcmadd_round_sch, __m128h, __m128h, __m128h, __m128h, 8) +test_3 (_mm512_maskz_fmul_round_pch, __m512h, __mmask16, __m512h, __m512h, 8) +test_3 (_mm512_maskz_fcmul_round_pch, __m512h, __mmask16, __m512h, __m512h, 8) +test_3 (_mm_maskz_fmul_round_sch, __m128h, __mmask8, __m128h, __m128h, 8) +test_3 (_mm_maskz_fcmul_round_sch, __m128h, __mmask8, __m128h, __m128h, 8) test_3x (_mm512_mask_cmp_round_ph_mask, __mmask32, __mmask32, __m512h, __m512h, 1, 8) test_3x (_mm_mask_cmp_round_sh_mask, __mmask8, __mmask8, __m128h, __m128h, 1, 8) test_3x (_mm512_mask_reduce_round_ph, __m512h, __m512h, __mmask32, __m512h, 123, 8) @@ -908,6 +920,22 @@ test_4 (_mm_maskz_fmsub_round_sh, __m128h, __mmask8, __m128h, __m128h, __m128h, test_4 (_mm_mask_fnmsub_round_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 9) test_4 (_mm_mask3_fnmsub_round_sh, __m128h, __m128h, __m128h, __m128h, __mmask8, 9) test_4 (_mm_maskz_fnmsub_round_sh, __m128h, __mmask8, __m128h, __m128h, __m128h, 9) +test_4 (_mm512_mask_fmadd_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm512_mask_fcmadd_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm512_mask3_fmadd_round_pch, __m512h, __m512h, __m512h, __m512h, __mmask16, 8) +test_4 (_mm512_mask3_fcmadd_round_pch, __m512h, __m512h, __m512h, __m512h, __mmask16, 8) +test_4 (_mm512_maskz_fmadd_round_pch, __m512h, __mmask16, __m512h, __m512h, __m512h, 8) +test_4 (_mm512_maskz_fcmadd_round_pch, __m512h, __mmask16, __m512h, __m512h, __m512h, 8) +test_4 (_mm_mask_fmadd_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) +test_4 (_mm_mask_fcmadd_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) +test_4 (_mm_mask3_fmadd_round_sch, __m128h, __m128h, __m128h, __m128h, __mmask8, 8) +test_4 (_mm_mask3_fcmadd_round_sch, __m128h, __m128h, __m128h, __m128h, __mmask8, 8) +test_4 (_mm_maskz_fmadd_round_sch, __m128h, __mmask8, __m128h, __m128h, __m128h, 8) +test_4 (_mm_maskz_fcmadd_round_sch, __m128h, __mmask8, __m128h, __m128h, __m128h, 8) +test_4 (_mm512_mask_fmul_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm512_mask_fcmul_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm_mask_fmul_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) +test_4 (_mm_mask_fcmul_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) test_4x (_mm_mask_reduce_round_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 123, 8) test_4x (_mm_mask_roundscale_round_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 123, 8) test_4x (_mm_mask_getmant_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 1, 1) diff --git a/gcc/testsuite/gcc.target/i386/sse-22.c b/gcc/testsuite/gcc.target/i386/sse-22.c index 79e3f35..31492ef 100644 --- a/gcc/testsuite/gcc.target/i386/sse-22.c +++ b/gcc/testsuite/gcc.target/i386/sse-22.c @@ -876,6 +876,10 @@ test_2 (_mm_cvt_roundsh_ss, __m128, __m128, __m128h, 8) test_2 (_mm_cvt_roundsh_sd, __m128d, __m128d, __m128h, 8) test_2 (_mm_cvt_roundss_sh, __m128h, __m128h, __m128, 8) test_2 (_mm_cvt_roundsd_sh, __m128h, __m128h, __m128d, 8) +test_2 (_mm512_fmul_round_pch, __m512h, __m512h, __m512h, 8) +test_2 (_mm512_fcmul_round_pch, __m512h, __m512h, __m512h, 8) +test_2 (_mm_fmul_round_sch, __m128h, __m128h, __m128h, 8) +test_2 (_mm_fcmul_round_sch, __m128h, __m128h, __m128h, 8) test_2x (_mm512_cmp_round_ph_mask, __mmask32, __m512h, __m512h, 1, 8) test_2x (_mm_cmp_round_sh_mask, __mmask8, __m128h, __m128h, 1, 8) test_2x (_mm_comi_round_sh, int, __m128h, __m128h, 1, 8) @@ -949,6 +953,14 @@ test_3 (_mm_fmadd_round_sh, __m128h, __m128h, __m128h, __m128h, 9) test_3 (_mm_fnmadd_round_sh, __m128h, __m128h, __m128h, __m128h, 9) test_3 (_mm_fmsub_round_sh, __m128h, __m128h, __m128h, __m128h, 9) test_3 (_mm_fnmsub_round_sh, __m128h, __m128h, __m128h, __m128h, 9) +test_3 (_mm512_fmadd_round_pch, __m512h, __m512h, __m512h, __m512h, 8) +test_3 (_mm512_fcmadd_round_pch, __m512h, __m512h, __m512h, __m512h, 8) +test_3 (_mm512_maskz_fmul_round_pch, __m512h, __mmask16, __m512h, __m512h, 8) +test_3 (_mm_maskz_fmul_round_sch, __m128h, __mmask8, __m128h, __m128h, 8) +test_3 (_mm_maskz_fcmul_round_sch, __m128h, __mmask8, __m128h, __m128h, 8) +test_3 (_mm_fmadd_round_sch, __m128h, __m128h, __m128h, __m128h, 8) +test_3 (_mm_fcmadd_round_sch, __m128h, __m128h, __m128h, __m128h, 8) +test_3 (_mm512_maskz_fcmul_round_pch, __m512h, __mmask16, __m512h, __m512h, 8) test_3x (_mm512_mask_cmp_round_ph_mask, __mmask32, __mmask32, __m512h, __m512h, 1, 8) test_3x (_mm_mask_cmp_round_sh_mask, __mmask8, __mmask8, __m128h, __m128h, 1, 8) test_3x (_mm512_mask_reduce_round_ph, __m512h, __m512h, __mmask32, __m512h, 123, 8) @@ -1010,6 +1022,22 @@ test_4 (_mm_maskz_fmsub_round_sh, __m128h, __mmask8, __m128h, __m128h, __m128h, test_4 (_mm_mask_fnmsub_round_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 9) test_4 (_mm_mask3_fnmsub_round_sh, __m128h, __m128h, __m128h, __m128h, __mmask8, 9) test_4 (_mm_maskz_fnmsub_round_sh, __m128h, __mmask8, __m128h, __m128h, __m128h, 9) +test_4 (_mm512_mask_fmadd_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm512_mask_fcmadd_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm512_mask3_fmadd_round_pch, __m512h, __m512h, __m512h, __m512h, __mmask16, 8) +test_4 (_mm512_mask3_fcmadd_round_pch, __m512h, __m512h, __m512h, __m512h, __mmask16, 8) +test_4 (_mm512_maskz_fmadd_round_pch, __m512h, __mmask16, __m512h, __m512h, __m512h, 8) +test_4 (_mm512_maskz_fcmadd_round_pch, __m512h, __mmask16, __m512h, __m512h, __m512h, 8) +test_4 (_mm_mask_fmadd_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) +test_4 (_mm_mask_fcmadd_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) +test_4 (_mm_mask3_fmadd_round_sch, __m128h, __m128h, __m128h, __m128h, __mmask8, 8) +test_4 (_mm_mask3_fcmadd_round_sch, __m128h, __m128h, __m128h, __m128h, __mmask8, 8) +test_4 (_mm_maskz_fmadd_round_sch, __m128h, __mmask8, __m128h, __m128h, __m128h, 8) +test_4 (_mm_maskz_fcmadd_round_sch, __m128h, __mmask8, __m128h, __m128h, __m128h, 8) +test_4 (_mm512_mask_fmul_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm512_mask_fcmul_round_pch, __m512h, __m512h, __mmask16, __m512h, __m512h, 8) +test_4 (_mm_mask_fmul_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) +test_4 (_mm_mask_fcmul_round_sch, __m128h, __m128h, __mmask8, __m128h, __m128h, 8) test_4x (_mm_mask_reduce_round_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 123, 8) test_4x (_mm_mask_roundscale_round_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 123, 8) test_4x (_mm_mask_getmant_sh, __m128h, __m128h, __mmask8, __m128h, __m128h, 1, 1) diff --git a/gcc/testsuite/gcc.target/i386/sse-23.c b/gcc/testsuite/gcc.target/i386/sse-23.c index 4be2c1e..9825126 100644 --- a/gcc/testsuite/gcc.target/i386/sse-23.c +++ b/gcc/testsuite/gcc.target/i386/sse-23.c @@ -805,6 +805,26 @@ #define __builtin_ia32_vfnmsubsh3_mask(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_mask(A, B, C, D, 8) #define __builtin_ia32_vfnmsubsh3_mask3(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_mask3(A, B, C, D, 8) #define __builtin_ia32_vfnmsubsh3_maskz(A, B, C, D, E) __builtin_ia32_vfnmsubsh3_maskz(A, B, C, D, 8) +#define __builtin_ia32_vfcmaddcph512_round(A, B, C, D) __builtin_ia32_vfcmaddcph512_round(A, B, C, 8) +#define __builtin_ia32_vfcmaddcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfcmaddcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmaddcph512_maskz_round(B, C, D, A, E) __builtin_ia32_vfcmaddcph512_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmaddcph512_round(A, B, C, D) __builtin_ia32_vfmaddcph512_round(A, B, C, 8) +#define __builtin_ia32_vfmaddcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfmaddcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcph512_maskz_round(B, C, D, A, E) __builtin_ia32_vfmaddcph512_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmulcph512_round(A, B, C) __builtin_ia32_vfmulcph512_round(A, B, 8) +#define __builtin_ia32_vfmulcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfmulcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmulcph512_round(A, B, C) __builtin_ia32_vfcmulcph512_round(A, B, 8) +#define __builtin_ia32_vfcmulcph512_mask_round(A, C, D, B, E) __builtin_ia32_vfcmulcph512_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcsh_round(A, B, C, D) __builtin_ia32_vfmaddcsh_round(A, B, C, 8) +#define __builtin_ia32_vfmaddcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfmaddcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfmaddcsh_maskz_round(B, C, D, A, E) __builtin_ia32_vfmaddcsh_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfcmaddcsh_round(A, B, C, D) __builtin_ia32_vfcmaddcsh_round(A, B, C, 8) +#define __builtin_ia32_vfcmaddcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfcmaddcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmaddcsh_maskz_round(B, C, D, A, E) __builtin_ia32_vfcmaddcsh_maskz_round(B, C, D, A, 8) +#define __builtin_ia32_vfmulcsh_round(A, B, C) __builtin_ia32_vfmulcsh_round(A, B, 8) +#define __builtin_ia32_vfmulcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfmulcsh_mask_round(A, C, D, B, 8) +#define __builtin_ia32_vfcmulcsh_round(A, B, C) __builtin_ia32_vfcmulcsh_round(A, B, 8) +#define __builtin_ia32_vfcmulcsh_mask_round(A, C, D, B, E) __builtin_ia32_vfcmulcsh_mask_round(A, C, D, B, 8) /* avx512fp16vlintrin.h */ #define __builtin_ia32_cmpph128_mask(A, B, C, D) __builtin_ia32_cmpph128_mask(A, B, 1, D) diff --git a/gcc/testsuite/gcc.target/i386/sse2-mmx-paddsb-2.c b/gcc/testsuite/gcc.target/i386/sse2-mmx-paddsb-2.c new file mode 100644 index 0000000..c677884 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/sse2-mmx-paddsb-2.c @@ -0,0 +1,33 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -msse2" } */ + +typedef char v8qi __attribute__ ((vector_size (8))); + +char foo() +{ + v8qi tx = { 1, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 2, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_paddsb(tx, ty); + return t[0]; +} + +char bar() +{ + v8qi tx = { 100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_paddsb(tx, ty); + return t[0]; +} + +char baz() +{ + v8qi tx = { -100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { -100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_paddsb(tx, ty); + return t[0]; +} + +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$3," 1 } } */ +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$127," 1 } } */ +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$-128," 1 } } */ +/* { dg-final { scan-assembler-not "paddsb\[ \\t\]+%xmm\[0-9\]+" } } */ diff --git a/gcc/testsuite/gcc.target/i386/sse2-mmx-paddusb-2.c b/gcc/testsuite/gcc.target/i386/sse2-mmx-paddusb-2.c new file mode 100644 index 0000000..b20891c --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/sse2-mmx-paddusb-2.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -msse2" } */ + +typedef char v8qi __attribute__ ((vector_size (8))); + +char foo() +{ + v8qi tx = { 1, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 2, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_paddusb(tx, ty); + return t[0]; +} + +char bar() +{ + v8qi tx = { 200, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 200, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_paddusb(tx, ty); + return t[0]; +} + +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$3," 1 } } */ +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$-1," 1 } } */ +/* { dg-final { scan-assembler-not "paddusb\[ \\t\]+%xmm\[0-9\]+" } } */ + diff --git a/gcc/testsuite/gcc.target/i386/sse2-mmx-psubsb-2.c b/gcc/testsuite/gcc.target/i386/sse2-mmx-psubsb-2.c new file mode 100644 index 0000000..4fc2920 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/sse2-mmx-psubsb-2.c @@ -0,0 +1,33 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -msse2" } */ + +typedef char v8qi __attribute__ ((vector_size (8))); + +char foo() +{ + v8qi tx = { 5, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 2, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_psubsb(tx, ty); + return t[0]; +} + +char bar() +{ + v8qi tx = { -100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_psubsb(tx, ty); + return t[0]; +} + +char baz() +{ + v8qi tx = { 100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { -100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_psubsb(tx, ty); + return t[0]; +} + +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$3," 1 } } */ +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$-128," 1 } } */ +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$127," 1 } } */ +/* { dg-final { scan-assembler-not "paddsb\[ \\t\]+%xmm\[0-9\]+" } } */ diff --git a/gcc/testsuite/gcc.target/i386/sse2-mmx-psubusb-2.c b/gcc/testsuite/gcc.target/i386/sse2-mmx-psubusb-2.c new file mode 100644 index 0000000..5fc58ef --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/sse2-mmx-psubusb-2.c @@ -0,0 +1,25 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -msse2" } */ + +typedef char v8qi __attribute__ ((vector_size (8))); + +char foo() +{ + v8qi tx = { 5, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 2, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_psubusb(tx, ty); + return t[0]; +} + +char bar() +{ + v8qi tx = { 100, 0, 0, 0, 0, 0, 0, 0 }; + v8qi ty = { 200, 0, 0, 0, 0, 0, 0, 0 }; + v8qi t = __builtin_ia32_psubusb(tx, ty); + return t[0]; +} + +/* { dg-final { scan-assembler-times "movl\[ \\t\]+\\\$3," 1 } } */ +/* { dg-final { scan-assembler-times "xorl\[ \\t\]+" 1 } } */ +/* { dg-final { scan-assembler-not "psubusb\[ \\t\]+%xmm\[0-9\]+" } } */ + diff --git a/gcc/testsuite/gcc.target/i386/sse2-pr101059.c b/gcc/testsuite/gcc.target/i386/sse2-pr101059.c deleted file mode 100644 index d155bf5..0000000 --- a/gcc/testsuite/gcc.target/i386/sse2-pr101059.c +++ /dev/null @@ -1,32 +0,0 @@ -/* { dg-do run } */ -/* { dg-options "-O2 -ffast-math -msse2" } */ -/* { dg-require-effective-target sse2 } */ - -#ifndef CHECK_H -#define CHECK_H "sse2-check.h" -#endif - -#ifndef TEST -#define TEST sse2_test -#endif - -#include CHECK_H - -float -__attribute__((noipa, optimize("tree-vectorize"))) -foo (float* p) -{ - float sum = 0.f; - for (int i = 0; i != 4; i++) - sum += p[i]; - return sum; -} - -static void -TEST (void) -{ - float p[4] = {1.0f, 2.0f, 3.0f, 4.0f}; - float res = foo (p); - if (res != 10.0f) - abort(); -} diff --git a/gcc/testsuite/gcc.target/i386/sse3-pr101059.c b/gcc/testsuite/gcc.target/i386/sse3-pr101059.c deleted file mode 100644 index 4795e89..0000000 --- a/gcc/testsuite/gcc.target/i386/sse3-pr101059.c +++ /dev/null @@ -1,13 +0,0 @@ -/* { dg-do run } */ -/* { dg-options "-O2 -ffast-math -msse3" } */ -/* { dg-require-effective-target sse3 } */ - -#ifndef CHECK_H -#define CHECK_H "sse3-check.h" -#endif - -#ifndef TEST -#define TEST sse3_test -#endif - -#include "sse2-pr101059.c" diff --git a/gcc/testsuite/gcc.target/i386/vect-alignment-peeling-1.c b/gcc/testsuite/gcc.target/i386/vect-alignment-peeling-1.c new file mode 100644 index 0000000..4aa536b --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/vect-alignment-peeling-1.c @@ -0,0 +1,90 @@ +/* { dg-do run { target lp64 } } */ +/* This is a test exercising peeling for alignment for a negative step + vector loop. We're forcing atom tuning here because that has a higher + unaligned vs aligned cost unlike most other archs. */ +/* { dg-options "-O3 -march=x86-64 -mtune=atom -fdump-tree-vect-details -save-temps" } */ + +float a[1024], b[1024]; + +void __attribute__((noipa)) foo1 () +{ + for (int i = 507; i > 1; --i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo2 () +{ + for (int i = 506; i > 1; --i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo3 () +{ + for (int i = 505; i > 1; --i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo4 () +{ + for (int i = 504; i > 1; --i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo5 (int start) +{ + for (int i = start; i > 1; --i) + a[i] = b[i] * 2.; +} + +int main() +{ + for (int i = 2; i < 508; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo1 (); + for (int i = 2; i < 508; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 2; i < 507; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo2 (); + for (int i = 2; i < 507; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 2; i < 506; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo3 (); + for (int i = 2; i < 506; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 2; i < 505; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo4 (); + for (int i = 2; i < 505; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 2; i < 506; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo5 (505); + for (int i = 2; i < 506; ++i) + if (a[i] != 2*i) + __builtin_abort (); +} + +/* { dg-final { scan-tree-dump-times "Alignment of access forced using peeling" 4 "vect" } } */ +/* Verify all vector accesses are emitted as aligned. */ +/* { dg-final { scan-assembler-not "movup" } } */ diff --git a/gcc/testsuite/gcc.target/i386/vect-alignment-peeling-2.c b/gcc/testsuite/gcc.target/i386/vect-alignment-peeling-2.c new file mode 100644 index 0000000..834bf0f --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/vect-alignment-peeling-2.c @@ -0,0 +1,90 @@ +/* { dg-do run { target lp64 } } */ +/* This is a test exercising peeling for alignment for a positive step + vector loop. We're forcing atom tuning here because that has a higher + unaligned vs aligned cost unlike most other archs. */ +/* { dg-options "-O3 -march=x86-64 -mtune=atom -fdump-tree-vect-details -save-temps" } */ + +float a[1024], b[1024]; + +void __attribute__((noipa)) foo1 () +{ + for (int i = 2; i < 508; ++i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo2 () +{ + for (int i = 3; i < 508; ++i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo3 () +{ + for (int i = 4; i < 508; ++i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo4 () +{ + for (int i = 5; i < 508; ++i) + a[i] = b[i] * 2.; +} +void __attribute__((noipa)) foo5 (int start) +{ + for (int i = start; i < 508; ++i) + a[i] = b[i] * 2.; +} + +int main() +{ + for (int i = 2; i < 508; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo1 (); + for (int i = 2; i < 508; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 3; i < 508; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo2 (); + for (int i = 3; i < 508; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 4; i < 508; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo3 (); + for (int i = 4; i < 508; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 5; i < 508; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo4 (); + for (int i = 5; i < 508; ++i) + if (a[i] != 2*i) + __builtin_abort (); + + for (int i = 3; i < 508; ++i) + { + __asm__ volatile ("" : : : "memory"); + b[i] = i; + } + foo5 (3); + for (int i = 3; i < 508; ++i) + if (a[i] != 2*i) + __builtin_abort (); +} + +/* { dg-final { scan-tree-dump-times "Alignment of access forced using peeling" 4 "vect" } } */ +/* Verify all vector accesses are emitted as aligned. */ +/* { dg-final { scan-assembler-not "movup" } } */ diff --git a/gcc/testsuite/gcc.target/i386/vect-pr82426.c b/gcc/testsuite/gcc.target/i386/vect-pr82426.c new file mode 100644 index 0000000..03b10ad --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/vect-pr82426.c @@ -0,0 +1,31 @@ +/* i?86 does not have V2SF, x32 does though. */ +/* { dg-do compile { target { ! ia32 } } } */ +/* { dg-options "-O3 -mavx -mfma" } */ + +struct Matrix +{ + float m11; + float m12; + float m21; + float m22; + float dx; + float dy; +}; + +struct Matrix multiply(const struct Matrix *a, const struct Matrix *b) +{ + struct Matrix out; + out.m11 = a->m11*b->m11 + a->m12*b->m21; + out.m12 = a->m11*b->m12 + a->m12*b->m22; + out.m21 = a->m21*b->m11 + a->m22*b->m21; + out.m22 = a->m21*b->m12 + a->m22*b->m22; + + out.dx = a->dx*b->m11 + a->dy*b->m21 + b->dx; + out.dy = a->dx*b->m12 + a->dy*b->m22 + b->dy; + return out; +} + +/* The whole kernel should be vectorized with V4SF and V2SF operations. */ +/* { dg-final { scan-assembler-times "vadd" 1 } } */ +/* { dg-final { scan-assembler-times "vmul" 2 } } */ +/* { dg-final { scan-assembler-times "vfma" 2 } } */ diff --git a/gcc/testsuite/gcc.target/i386/vect-pr97352.c b/gcc/testsuite/gcc.target/i386/vect-pr97352.c new file mode 100644 index 0000000..f6cbf36 --- /dev/null +++ b/gcc/testsuite/gcc.target/i386/vect-pr97352.c @@ -0,0 +1,22 @@ +/* { dg-do compile } */ +/* { dg-options "-O3 -mavx -mno-avx2 -mno-avx512f" } */ + +double x[2], a[4], b[4], c[5]; + +void foo () +{ + a[0] = c[0]; + a[1] = c[1]; + a[2] = c[0]; + a[3] = c[1]; + b[0] = c[2]; + b[1] = c[3]; + b[2] = c[2]; + b[3] = c[3]; + x[0] = c[4]; + x[1] = c[4]; +} + +/* We should vectorize all three stores and the load from c apart + from c[4] which should be duped. */ +/* { dg-final { scan-assembler-times "vmov.pd" 4 } } */ diff --git a/gcc/testsuite/gcc.target/i386/vect-rebuild.c b/gcc/testsuite/gcc.target/i386/vect-rebuild.c index 570967f..8e85b98 100644 --- a/gcc/testsuite/gcc.target/i386/vect-rebuild.c +++ b/gcc/testsuite/gcc.target/i386/vect-rebuild.c @@ -30,4 +30,4 @@ v2df h (v4df x) /* { dg-final { scan-assembler-not "unpck" } } */ /* { dg-final { scan-assembler-times "\tv?permilpd\[ \t\]" 1 } } */ -/* { dg-final { scan-assembler-times "\tv?extractf128\[ \t\]" 1 } } */ +/* { dg-final { scan-assembler-times "\tv?extract(?:f128|f64x2)\[ \t\]" 1 } } */ diff --git a/gcc/testsuite/gcc.target/pru/regio-as-pointer-2.c b/gcc/testsuite/gcc.target/pru/regio-as-pointer-2.c new file mode 100644 index 0000000..06d9473 --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-as-pointer-2.c @@ -0,0 +1,11 @@ +/* Test __regio_symbol invalid attempt to get regio variable address. */ + +/* { dg-do compile } */ +/* { dg-options "-O0" } */ + +#include "regio.h" + +uint32_t test(void) +{ + return *(&__R30+1); /* { dg-error "invalid access to '__regio_symbol' address space" } */ +} diff --git a/gcc/testsuite/gcc.target/pru/regio-as-pointer.c b/gcc/testsuite/gcc.target/pru/regio-as-pointer.c new file mode 100644 index 0000000..885464f --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-as-pointer.c @@ -0,0 +1,11 @@ +/* Test __regio_symbol invalid attempt to get regio variable address. */ + +/* { dg-do compile } */ +/* { dg-options "-O0" } */ + +#include "regio.h" + +uint32_t *test(void) +{ + return &__R31; /* { dg-error "return from pointer to non-enclosed address space" } */ +} diff --git a/gcc/testsuite/gcc.target/pru/regio-decl-2.c b/gcc/testsuite/gcc.target/pru/regio-decl-2.c new file mode 100644 index 0000000..9a9338e --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-decl-2.c @@ -0,0 +1,13 @@ +/* Test __regio_symbol diagnostics for unsupported declarations. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +extern volatile __regio_symbol +uint32_t __R30[10]; /* { dg-error "aggregate types are prohibited in '__regio_symbol' address space" } */ + +/* { dg-warning "'__R31' initialized and declared 'extern'" "" { target *-*-* } 0 } */ +extern volatile __regio_symbol +uint32_t __R31 = 2; /* { dg-error "variables in '__regio_symbol' address space cannot have initial value" } */ diff --git a/gcc/testsuite/gcc.target/pru/regio-decl-3.c b/gcc/testsuite/gcc.target/pru/regio-decl-3.c new file mode 100644 index 0000000..36fcd8a --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-decl-3.c @@ -0,0 +1,19 @@ +/* Test __regio_symbol diagnostics for unsupported declarations. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +uint32_t __regio_symbol *test1(void); /* { dg-error "pointers to '__regio_symbol' address space are prohibited" } */ + +void test2(uint32_t __regio_symbol __R30); /* { dg-error "'__regio_symbol' specified for parameter '__R30'" } */ + +void test3(uint32_t __regio_symbol *__R30); /* { dg-error "pointers to '__regio_symbol' address space are prohibited" } */ + +typedef volatile uint32_t __regio_symbol * regio_type1_t; /* { dg-error "pointers to '__regio_symbol' address space are prohibited" } */ + +struct A { + uint32_t __regio_symbol *__R30; /* { dg-error "pointers to '__regio_symbol' address space are prohibited" } */ + uint32_t __regio_symbol __R31; /* { dg-error "__regio_symbol' specified for structure field '__R31'" } */ +}; diff --git a/gcc/testsuite/gcc.target/pru/regio-decl-4.c b/gcc/testsuite/gcc.target/pru/regio-decl-4.c new file mode 100644 index 0000000..48c45a7 --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-decl-4.c @@ -0,0 +1,17 @@ +/* Test __regio_symbol diagnostics for unsupported access. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +extern volatile uint32_t __regio_symbol *__R30; +uint32_t test_r(void) +{ + return *__R30; /* { dg-error "invalid access to '__regio_symbol' address space" } */ +} + +void test_w(uint32_t a) +{ + *__R30 = a; /* { dg-error "invalid access to '__regio_symbol' address space" } */ +} diff --git a/gcc/testsuite/gcc.target/pru/regio-decl.c b/gcc/testsuite/gcc.target/pru/regio-decl.c new file mode 100644 index 0000000..a4962aa --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-decl.c @@ -0,0 +1,15 @@ +/* Test __regio_symbol diagnostics for unsupported declarations. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +volatile __regio_symbol +uint32_t __R30; /* { dg-error "variables in '__regio_symbol' address space must be declared 'extern'" } */ + +extern __regio_symbol +uint32_t __R31; /* { dg-error "variables in '__regio_symbol' address space must be declared 'volatile'" } */ + +extern volatile +__regio_symbol uint32_t __R32; /* { dg-error "register name '__R32' not recognized in '__regio_symbol' address space" } */ diff --git a/gcc/testsuite/gcc.target/pru/regio-di.c b/gcc/testsuite/gcc.target/pru/regio-di.c new file mode 100644 index 0000000..a422627 --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-di.c @@ -0,0 +1,9 @@ +/* Test __regio_symbol invalid access diagnostic for DImode. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +extern volatile +__regio_symbol uint64_t __R31; /* { dg-error "only 32-bit access is supported for '__regio_symbol' address space" } */ diff --git a/gcc/testsuite/gcc.target/pru/regio-hi.c b/gcc/testsuite/gcc.target/pru/regio-hi.c new file mode 100644 index 0000000..5b89e8c --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-hi.c @@ -0,0 +1,9 @@ +/* Test __regio_symbol invalid access diagnostic for HImode. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +extern volatile __regio_symbol +uint16_t __R31; /* { dg-error "only 32-bit access is supported for '__regio_symbol' address space" } */ diff --git a/gcc/testsuite/gcc.target/pru/regio-qi.c b/gcc/testsuite/gcc.target/pru/regio-qi.c new file mode 100644 index 0000000..a3f6306 --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio-qi.c @@ -0,0 +1,9 @@ +/* Test __regio_symbol invalid access diagnostic for QImode. */ + +/* { dg-do compile } */ +/* { dg-options "-O1" } */ + +#include <stdint.h> + +extern volatile __regio_symbol +uint8_t __R31; /* { dg-error "only 32-bit access is supported for '__regio_symbol' address space" } */ diff --git a/gcc/testsuite/gcc.target/pru/regio.c b/gcc/testsuite/gcc.target/pru/regio.c new file mode 100644 index 0000000..2f01263 --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio.c @@ -0,0 +1,58 @@ +/* __regio_symbol operations. */ + +/* { dg-do compile } */ +/* { dg-options "-Os" } */ + +#include "regio.h" + +void +test_r30_w_const (void) +{ + /* { dg-final { scan-assembler "mov\\tr30, r\[012\]\[0-9\]?" } } */ + __R30 = 1; +} + +void +test_r31_w_zext_qi (unsigned char val1) +{ + /* { dg-final { scan-assembler "mov\\tr31, r14.b0" } } */ + __R31 = val1; +} + +void +test_r31_w_zext_hi (unsigned short val1) +{ + /* { dg-final { scan-assembler "mov\\tr31, r14.w0" } } */ + __R31 = val1; +} + +void +test_r31_w (unsigned int val1) +{ + /* { dg-final { scan-assembler "mov\\tr31, r14" } } */ + __R31 = val1; +} + +uint32_t +test_r30_r (void) +{ + /* { dg-final { scan-assembler "mov\\tr14, r30" } } */ + return __R30; +} + +void +test_r30_rw (void) +{ + /* { dg-final { scan-assembler "mov\\tr\[012\]\[0-9\]?, r30" } } */ + /* { dg-final { scan-assembler "mov\\tr30, r\[012\]\[0-9\]?" } } */ + __R30 = __R30; +} + +void +test_r31_rw (void) +{ + /* { dg-final { scan-assembler "mov\\tr\[012\]\[0-9\]?, r31" } } */ + /* { dg-final { scan-assembler "mov\\tr31, r\[012\]\[0-9\]?" } } */ + __R31 |= 101; +} + diff --git a/gcc/testsuite/gcc.target/pru/regio.h b/gcc/testsuite/gcc.target/pru/regio.h new file mode 100644 index 0000000..3a120c1d --- /dev/null +++ b/gcc/testsuite/gcc.target/pru/regio.h @@ -0,0 +1,7 @@ + +#include <stdint.h> + +/* Declare the I/O registers. */ +extern volatile __regio_symbol uint32_t __R30; +extern volatile __regio_symbol uint32_t __R31; + diff --git a/gcc/testsuite/gcc.target/s390/pr102222.c b/gcc/testsuite/gcc.target/s390/pr102222.c new file mode 100644 index 0000000..47d075e --- /dev/null +++ b/gcc/testsuite/gcc.target/s390/pr102222.c @@ -0,0 +1,16 @@ +/* { dg-do compile } */ +/* { dg-options "-O2 -m31 -mesa" } */ + +struct squashfs_reg_inode_header_1 read_inode_inode; + +int read_inode_val; + +struct squashfs_reg_inode_header_1 +{ + int file_size:32; +} __attribute__((packed)) read_inode (); + +void foo (void) +{ + read_inode_inode.file_size = read_inode_val; +} diff --git a/gcc/testsuite/gcc.target/s390/pr80725.c b/gcc/testsuite/gcc.target/s390/pr80725.c index 4a402c4..d556e6b 100644 --- a/gcc/testsuite/gcc.target/s390/pr80725.c +++ b/gcc/testsuite/gcc.target/s390/pr80725.c @@ -18,7 +18,7 @@ foo (int x, int y) while (a < x) { if (y) - goto *d; + goto *(void *)d; g = b | b + g; bar (g); c = (char) (long) foo; diff --git a/gcc/testsuite/gdc.dg/pr102476.d b/gcc/testsuite/gdc.dg/pr102476.d new file mode 100644 index 0000000..543716e --- /dev/null +++ b/gcc/testsuite/gdc.dg/pr102476.d @@ -0,0 +1,3 @@ +// https://gcc.gnu.org/bugzilla/show_bug.cgi?id=102476 +// { dg-do link } +// { dg-options "-fmain -fno-druntime" } diff --git a/gcc/testsuite/gfortran.dg/associated_assumed_rank.f90 b/gcc/testsuite/gfortran.dg/associated_assumed_rank.f90 new file mode 100644 index 0000000..8bb7ea1 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/associated_assumed_rank.f90 @@ -0,0 +1,126 @@ +! { dg-do run } + +! PR fortran/101334 + +implicit none (type, external) +real, target :: AT(10,10), BT +real, contiguous, pointer :: A(:,:) +real, pointer :: B +real, pointer :: AP(:,:), BP +real, pointer :: CP(:), DP(:,:), D, EP(:) + +call test_char() + +A => AT +B => BT + +AP => A +BP => B +call foo(AP,B, A, 1) ! OK - associated +call foo(BP,B, A, 2) ! OK - associated + +! Those are all not associated: + +AP => null() +BP => null() +call foo(AP, B, A, 3) ! LHS not associated +call foo(BP, B, A, 4) ! LHS not associated + +DP => null() +D => null() +call foo(AP, B, DP, 5) ! LHS+RHS not associated +call foo(BP, D, A, 6) ! LHS+RHS not associated + +AP => A +BP => B +call foo(AP, B, DP, 7) ! RHS not associated +call foo(BP, D, A, 8) ! RHS not associated + +CP(1:size(A)) => A +call foo(CP, B, A, 9) ! Shape (rank) differs + +AP => A(2:,:) +call foo(AP, B, A, 10) ! Shape differs + +AP => A(:,2:) +call foo(AP, B, A, 11) ! Shape differs + +AP(10:,10:) => A +call foo(AP, B, A, 12) ! OK - bounds different, shape same + +CP => AT(1:-1, 5) +EP => AT(1:-1, 5) ! Case(i) + case(iv) +call foo2(CP, EP) ! CP associated - but CP not associated with EP +contains +subroutine foo2(p, lpd) + implicit none (type, external) + real, pointer :: p(..) ! "pointer" + real, pointer :: lpd(:) ! array "target" + if (.not.associated(p)) stop 18 ! OK - associated + if (associated(p, lpd)) stop 19 ! .. but for zero-sized array +end + +subroutine foo(p, lp, lpd, cnt) + implicit none (type, external) + real, pointer :: p(..) ! "pointer" + real, pointer :: lp ! scalar "target" + real, pointer :: lpd(:,:) ! array "target" + integer, value :: cnt + + if (cnt == 1) then + if (.not. associated(p, lpd)) stop 1 ! OK + elseif (cnt == 2) then + if (.not. associated(p, lp)) stop 2 ! OK + elseif (cnt == 3) then + if (associated(p, lpd)) stop 3 ! LHS NULL ptr + if (associated(p)) stop 4 ! LHS NULL ptr + elseif (cnt == 4) then + if (associated(p, lp)) stop 5 ! LHS NULL ptr + if (associated(p)) stop 6 ! LHS NULL ptr + elseif (cnt == 5) then + if (associated(p, lpd)) stop 7 ! LHS+RHS NULL ptr + if (associated(p)) stop 8 ! LHS+RHS NULL ptr + elseif (cnt == 6) then + if (associated(p, lp)) stop 9 ! LHS+RHS NULL ptr + if (associated(p)) stop 10 ! LHS+RHS NULL ptr + elseif (cnt == 7) then + if (associated(p, lpd)) stop 11 ! RHS NULL ptr + elseif (cnt == 8) then + if (associated(p, lp)) stop 12 ! RHS NULL ptr + elseif (cnt == 9) then + if (associated(p, lpd)) stop 13 ! rank differs + if (associated(p, lp)) stop 14 ! rank differs + elseif (cnt == 10) then + if (associated(p, lpd)) stop 15 ! shape differs + elseif (cnt == 11) then + if (associated(p, lpd)) stop 16 ! shape differs + elseif (cnt == 12) then + if (.not.associated(p, lpd)) stop 17 ! OK - shape same, lbound different + else + stop 99 + endif +end +subroutine test_char() + character(len=0), target :: str0 + character(len=2), target :: str2 + character(len=:), pointer :: ptr + ptr => str0 + call test_char2(ptr, str0) + ptr => str2 + call test_char2(ptr, str2) +end +subroutine test_char2(x,y) + character(len=:), pointer :: x + character(len=*), target :: y + if (len(y) == 0) then + if (len(x) /= 0) stop 20 + if (.not. associated(x)) stop 21 + if (associated(x, y)) stop 22 + else + if (len(y) /= 2) stop 23 + if (len(x) /= 2) stop 24 + if (.not. associated(x)) stop 25 + if (.not. associated(x, y)) stop 26 + end if +end +end diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_18.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_18.f90 index a8fa3ff..0bc419a 100644 --- a/gcc/testsuite/gfortran.dg/assumed_rank_18.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_rank_18.f90 @@ -7,7 +7,10 @@ program p contains subroutine g(x) real :: x(..) - call h(x) + select rank (x) + rank (1) + call h(x) + end select end subroutine h(x) real :: x(*) diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_22.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_22.f90 new file mode 100644 index 0000000..8be0c10 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/assumed_rank_22.f90 @@ -0,0 +1,169 @@ +! { dg-do run } +! { dg-additional-sources assumed_rank_22_aux.c } +! { dg-additional-options "-fdump-tree-original" } +! +! FIXME: wrong extend in array descriptor, see C file. +! { dg-output "c_assumed - 40 - OK" { xfail *-*-* } } +! { dg-output "c_assumed - 100 - OK" { xfail *-*-* } } +! +! PR fortran/94070 +! +! Contributed by Tobias Burnus +! and José Rui Faustino de Sousa +! +program main + implicit none + integer :: A(5,4,2) + integer, allocatable :: B(:,:,:) + integer :: C(5,4,-2:-1) + + interface + subroutine c_assumed (x, num) bind(C) + integer :: x(..) + integer, value :: num + end subroutine + subroutine c_allocated (x) bind(C) + integer, allocatable :: x(..) + end subroutine + end interface + + allocate (B(-1:3,4,-1:-1)) + + call caller (a) ! num=0: assumed-size + call test (b, num=20) ! full array + call test (b(:,:,0:-1), num=40) ! zero-sized array + call test (c, num=60) + call test (c(:,:,:-1), num=80) ! full-size slice + call test (c(:,:,1:-1), num=100) !zero-size array + + call test_alloc(b) + + call c_assumed (b, num=20) + call c_assumed (b(:,:,0:-1), num=40) + call c_assumed (c, num=60) + call c_assumed (c(:,:,:-1), num=80) + call c_assumed (c(:,:,1:-1), num=100) + + call c_allocated (b) +contains + subroutine caller(y) + integer :: y(-1:3,4,*) + call test(y, num=0) + call c_assumed (y, num=0) + end + subroutine test (x, num) + integer :: x(..), num + + ! SIZE (x) + if (num == 0) then + if (size (x) /= -20) stop 1 + elseif (num == 20) then + if (size (x) /= 20) stop 21 + elseif (num == 40) then + if (size (x) /= 0) stop 41 + elseif (num == 60) then + if (size (x) /= 40) stop 61 + elseif (num == 80) then + if (size (x) /= 40) stop 81 + elseif (num == 100) then + if (size (x) /= 0) stop 101 + else + stop 99 ! Invalid num + endif + + ! SIZE (x, dim=...) + if (size (x, dim=1) /= 5) stop num + 2 + if (size (x, dim=2) /= 4) stop num + 3 + + if (num == 0) then + if (size (x, dim=3) /= -1) stop 4 + elseif (num == 20) then + if (size (x, dim=3) /= 1) stop 24 + elseif (num == 40) then + if (size (x, dim=3) /= 0) stop 44 + elseif (num == 60) then + if (size (x, dim=3) /= 2) stop 64 + elseif (num == 80) then + if (size (x, dim=3) /= 2) stop 84 + elseif (num == 100) then + if (size (x, dim=3) /= 0) stop 104 + endif + + ! SHAPE (x) + if (num == 0) then + if (any (shape (x) /= [5, 4, -1])) stop 5 + elseif (num == 20) then + if (any (shape (x) /= [5, 4, 1])) stop 25 + elseif (num == 40) then + if (any (shape (x) /= [5, 4, 0])) stop 45 + elseif (num == 60) then + if (any (shape (x) /= [5, 4, 2])) stop 65 + elseif (num == 80) then + if (any (shape (x) /= [5, 4, 2])) stop 85 + elseif (num == 100) then + if (any (shape (x) /= [5, 4, 0])) stop 105 + endif + + ! LBOUND (X) + if (any (lbound (x) /= [1, 1, 1])) stop num + 6 + + ! LBOUND (X, dim=...) + if (lbound (x, dim=1) /= 1) stop num + 7 + if (lbound (x, dim=2) /= 1) stop num + 8 + if (lbound (x, dim=3) /= 1) stop num + 9 + + ! UBOUND (X) + if (num == 0) then + if (any (ubound (x) /= [5, 4, -1])) stop 11 + elseif (num == 20) then + if (any (ubound (x) /= [5, 4, 1])) stop 31 + elseif (num == 40) then + if (any (ubound (x) /= [5, 4, 0])) stop 51 + elseif (num == 60) then + if (any (ubound (x) /= [5, 4, 2])) stop 71 + elseif (num == 80) then + if (any (ubound (x) /= [5, 4, 2])) stop 91 + elseif (num == 100) then + if (any (ubound (x) /= [5, 4, 0])) stop 111 + endif + + ! UBOUND (X, dim=...) + if (ubound (x, dim=1) /= 5) stop num + 12 + if (ubound (x, dim=2) /= 4) stop num + 13 + if (num == 0) then + if (ubound (x, dim=3) /= -1) stop 14 + elseif (num == 20) then + if (ubound (x, dim=3) /= 1) stop 34 + elseif (num == 40) then + if (ubound (x, dim=3) /= 0) stop 54 + elseif (num == 60) then + if (ubound (x, dim=3) /= 2) stop 74 + elseif (num == 80) then + if (ubound (x, dim=3) /= 2) stop 94 + elseif (num == 100) then + if (ubound (x, dim=3) /= 0) stop 114 + endif + end + + subroutine test_alloc (x) + integer, allocatable :: x(..) + + if (size (x) /= 20) stop 61 + if (size (x, dim=1) /= 5) stop 62 + if (size (x, dim=2) /= 4) stop 63 + if (size (x, dim=3) /= 1) stop 64 + + if (any (shape (x) /= [5, 4, 1])) stop 65 + + if (any (lbound (x) /= [-1, 1, -1])) stop 66 + if (lbound (x, dim=1) /= -1) stop 77 + if (lbound (x, dim=2) /= 1) stop 78 + if (lbound (x, dim=3) /= -1) stop 79 + + if (any (ubound (x) /= [3, 4, -1])) stop 80 + if (ubound (x, dim=1) /= 3) stop 92 + if (ubound (x, dim=2) /= 4) stop 93 + if (ubound (x, dim=3) /= -1) stop 94 + end +end +! { dg-final { scan-tree-dump-not "_gfortran_size" "original" } } diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c b/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c new file mode 100644 index 0000000..e5fe021 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/assumed_rank_22_aux.c @@ -0,0 +1,68 @@ +/* Called by assumed_rank_22.f90. */ + +#include <ISO_Fortran_binding.h> +#include <assert.h> + +void +c_assumed (CFI_cdesc_t *x, int num) +{ + assert (num == 0 || num == 20 || num == 40 || num == 60 || num == 80 + || num == 100); + assert (x->elem_len == sizeof (int)); + assert (x->rank == 3); + assert (x->type == CFI_type_int32_t); + + assert (x->attribute == CFI_attribute_other); + assert (x->dim[0].lower_bound == 0); + assert (x->dim[1].lower_bound == 0); + assert (x->dim[2].lower_bound == 0); + assert (x->dim[0].extent == 5); + assert (x->dim[1].extent == 4); + if (num == 0) + assert (x->dim[2].extent == -1); + else if (num == 20) + assert (x->dim[2].extent == 1); + else if (num == 40) + { + /* FIXME: - dg-output = 'c_assumed ... OK' checked in .f90 file. */ + /* assert (x->dim[2].extent == 0); */ + if (x->dim[2].extent == 0) + __builtin_printf ("c_assumed - 40 - OK\n"); + else + __builtin_printf ("error: c_assumed num=%d: " + "x->dim[2].extent = %d != 0\n", + num, x->dim[2].extent); + } + else if (num == 60) + assert (x->dim[2].extent == 2); + else if (num == 80) + assert (x->dim[2].extent == 2); + else if (num == 100) + { + /* FIXME: - dg-output = 'c_assumed ... OK' checked in .f90 file. */ + /* assert (x->dim[2].extent == 0); */ + if (x->dim[2].extent == 0) + __builtin_printf ("c_assumed - 100 - OK\n"); + else + __builtin_printf ("error: c_assumed num=%d: " + "x->dim[2].extent = %d != 0\n", + num, x->dim[2].extent); + } + else + assert (0); +} + +void +c_allocated (CFI_cdesc_t *x) +{ + assert (x->elem_len == sizeof (int)); + assert (x->rank == 3); + assert (x->type == CFI_type_int32_t); + assert (x->attribute == CFI_attribute_allocatable); + assert (x->dim[0].lower_bound == -1); + assert (x->dim[1].lower_bound == 1); + assert (x->dim[2].lower_bound == -1); + assert (x->dim[0].extent == 5); + assert (x->dim[1].extent == 4); + assert (x->dim[2].extent == 1); +} diff --git a/gcc/testsuite/gfortran.dg/assumed_rank_23.f90 b/gcc/testsuite/gfortran.dg/assumed_rank_23.f90 new file mode 100644 index 0000000..c83aa7d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/assumed_rank_23.f90 @@ -0,0 +1,16 @@ +! { dg-do compile } +! +! PR fortran/54753 +! TS29113:C535c +! F2018:C839 +! +module m + + interface + subroutine s1 (x, y) + class(*) :: x(..) + class(*), intent (out) :: y(..) + end subroutine + end interface + +end module diff --git a/gcc/testsuite/gfortran.dg/assumed_type_10.f90 b/gcc/testsuite/gfortran.dg/assumed_type_10.f90 index bf0c873..a8bbf2d 100644 --- a/gcc/testsuite/gfortran.dg/assumed_type_10.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_type_10.f90 @@ -31,7 +31,10 @@ contains subroutine test_array (a) use iso_c_binding, only: c_size_t class(*), dimension(..), target :: a - call test_lib (a, int (sizeof (a), kind=c_size_t)) + select rank (a) + rank (1) + call test_lib (a, int (sizeof (a), kind=c_size_t)) + end select end subroutine end module diff --git a/gcc/testsuite/gfortran.dg/assumed_type_11.f90 b/gcc/testsuite/gfortran.dg/assumed_type_11.f90 index df6572d..391fa0d 100644 --- a/gcc/testsuite/gfortran.dg/assumed_type_11.f90 +++ b/gcc/testsuite/gfortran.dg/assumed_type_11.f90 @@ -31,7 +31,10 @@ contains subroutine test_array (a) use iso_c_binding, only: c_size_t class(*), dimension(..), target :: a - call test_lib (a, int (sizeof (a), kind=c_size_t)) + select rank (a) + rank (1) + call test_lib (a, int (sizeof (a), kind=c_size_t)) + end select end subroutine end module diff --git a/gcc/testsuite/gfortran.dg/attr_deprecated-2.f90 b/gcc/testsuite/gfortran.dg/attr_deprecated-2.f90 new file mode 100644 index 0000000..97a365a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/attr_deprecated-2.f90 @@ -0,0 +1,22 @@ +! { dg-do compile } +! { dg-additional-options "-Wall" } +! +! Ensure that only those parameters are warned for which are actually used +! +module m + implicit none + integer, parameter :: parm = 4 ! unused + integer, parameter :: parm2 = 4 ! used in the main program + integer, parameter :: parm3 = 4 ! used in "f()" - { dg-warning "Using parameter 'parm3' declared at .1. is deprecated" } + integer, save :: var, var2 +!GCC$ ATTRIBUTES DEPRECATED :: parm, parm2, parm3, var, var2 +contains + subroutine f() + print *, parm3 ! warning shown above + end +end module m + +use m ! { dg-warning "Using parameter 'parm2' declared at .1. is deprecated" } +implicit none +print *, var2, parm2 ! { dg-warning "Using variable 'var2' at .1. is deprecated" } +end diff --git a/gcc/testsuite/gfortran.dg/c-interop/assumed-type-dummy.f90 b/gcc/testsuite/gfortran.dg/c-interop/assumed-type-dummy.f90 index a14c9a5..24bdf2b 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/assumed-type-dummy.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/assumed-type-dummy.f90 @@ -73,7 +73,7 @@ contains type(t4) :: a4 call s1 (a1) ! OK - call s1 (a2) ! { dg-error "assumed-type dummy" "pr101319" { xfail *-*-* } } + call s1 (a2) ! { dg-error "assumed-type dummy" } call s1 (a3) ! { dg-error "assumed-type dummy" } call s1 (a4) ! { dg-error "assumed-type dummy" } end subroutine diff --git a/gcc/testsuite/gfortran.dg/c-interop/c407c-1.f90 b/gcc/testsuite/gfortran.dg/c-interop/c407c-1.f90 index e4da66a..c77e6ac 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/c407c-1.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/c407c-1.f90 @@ -44,7 +44,7 @@ subroutine s2 (x) implicit none type(*) :: x(*) - call g (x, 1) ! { dg-error "Assumed.type" "pr101333" { xfail *-*-* } } + call g (x, 1) ! { dg-error "Assumed.type" } end subroutine ! Check that a scalar gives an error. @@ -53,7 +53,7 @@ subroutine s3 (x) implicit none type(*) :: x - call g (x, 1) ! { dg-error "Assumed.type" "pr101333" { xfail *-*-* } } + call g (x, 1) ! { dg-error "Assumed.type" } end subroutine ! Explicit-shape assumed-type actual arguments are forbidden implicitly diff --git a/gcc/testsuite/gfortran.dg/c-interop/c516.f90 b/gcc/testsuite/gfortran.dg/c-interop/c516.f90 index 208eb84..d6a65af 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/c516.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/c516.f90 @@ -27,6 +27,10 @@ module m2 interface + ! First test versions with optional attributes on the argument. + ! TS29113 removed the constraint disallowing optional arguments + ! that previously used to be in C516. + ! good, no default initialization, no pointer/allocatable attribute subroutine s1a (x) bind (c) use m1 @@ -52,16 +56,54 @@ module m2 end subroutine ! bad, default initialization + allocatable - subroutine s2b (x) bind (c) ! { dg-error "BIND\\(C\\)" "pr101320" { xfail *-*-* } } + subroutine s2b (x) bind (c) ! { dg-error "BIND\\(C\\)" } use m1 type(t2), allocatable, optional :: x end subroutine ! bad, default initialization + pointer - subroutine s2c (x) bind (c) ! { dg-error "BIND\\(C\\)" "pr101320" { xfail *-*-* } } + subroutine s2c (x) bind (c) ! { dg-error "BIND\\(C\\)" } use m1 type(t2), pointer, optional :: x end subroutine + ! Now do all the same tests without the optional attribute. + + ! good, no default initialization, no pointer/allocatable attribute + subroutine s3a (x) bind (c) + use m1 + type(t1) :: x + end subroutine + + ! good, no default initialization + subroutine s3b (x) bind (c) + use m1 + type(t1), allocatable :: x + end subroutine + + ! good, no default initialization + subroutine s3c (x) bind (c) + use m1 + type(t1), pointer :: x + end subroutine + + ! good, default initialization but no pointer/allocatable attribute + subroutine s4a (x) bind (c) + use m1 + type(t2) :: x + end subroutine + + ! bad, default initialization + allocatable + subroutine s4b (x) bind (c) ! { dg-error "BIND\\(C\\)" } + use m1 + type(t2), allocatable :: x + end subroutine + + ! bad, default initialization + pointer + subroutine s4c (x) bind (c) ! { dg-error "BIND\\(C\\)" } + use m1 + type(t2), pointer :: x + end subroutine + end interface end module diff --git a/gcc/testsuite/gfortran.dg/c-interop/c535b-1.f90 b/gcc/testsuite/gfortran.dg/c-interop/c535b-1.f90 index 3de77b0..748e027 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/c535b-1.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/c535b-1.f90 @@ -297,8 +297,6 @@ end function ! coshape, lcobound, ucobound: requires CODIMENSION attribute, which is ! not permitted on an assumed-rank variable. ! -! extends_type_of, same_type_as: require a class argument. - ! F2018 additionally permits the first arg to C_SIZEOF to be ! assumed-rank (C838). diff --git a/gcc/testsuite/gfortran.dg/c-interop/c535b-2.f90 b/gcc/testsuite/gfortran.dg/c-interop/c535b-2.f90 index 7bff14f..2dafd44 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/c535b-2.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/c535b-2.f90 @@ -61,15 +61,14 @@ subroutine test_calls (x, y) ! assumed-rank dummies call g (x, y) ! OK ! assumed-size dummies - call h (x, & ! { dg-error "(A|a)ssumed.rank" "pr101334" { xfail *-*-* } } + call h (x, & ! { dg-error "(A|a)ssumed.rank" "pr101334" } y) ! { dg-error "(A|a)ssumed.rank" "pr101337, failure to diagnose both operands" { xfail *-*-*} } ! assumed-shape dummies call i (x, & ! { dg-error "(A|a)ssumed.rank" } y) ! { dg-error "(A|a)ssumed.rank" "pr101337, failure to diagnose both operands" { xfail *-*-*} } ! fixed-size array dummies - call j (x, & ! { dg-error "(A|a)ssumed.rank" "pr101334" { xfail *-*-* } } + call j (x, & ! { dg-error "(A|a)ssumed.rank" "pr101334" } y) ! { dg-error "(A|a)ssumed.rank" "pr101337, failure to diagnose both operands" { xfail *-*-*} } - ! { dg-bogus "Actual argument contains too few elements" "pr101334" { xfail *-*-* } .-2 } end subroutine ! Check that you can't use an assumed-rank array variable in an array diff --git a/gcc/testsuite/gfortran.dg/c-interop/c535b-3.f90 b/gcc/testsuite/gfortran.dg/c-interop/c535b-3.f90 index 6427bd6..23862e5 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/c535b-3.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/c535b-3.f90 @@ -29,7 +29,7 @@ function test_associated3 (a, b) integer, target :: b logical :: test_associated3 - test_associated3 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" { xfail *-*-* } } + test_associated3 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" } end function function test_associated4 (a, b) @@ -38,7 +38,7 @@ function test_associated4 (a, b) integer, target :: b(:) logical :: test_associated4 - test_associated4 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" { xfail *-*-* } } + test_associated4 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" } end function function test_associated5 (a, b) @@ -47,7 +47,7 @@ function test_associated5 (a, b) integer, target :: b(20) logical :: test_associated5 - test_associated5 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" { xfail *-*-* } } + test_associated5 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" } end function function test_associated6 (a, b) @@ -65,7 +65,7 @@ function test_associated7 (a, b) integer, pointer :: b logical :: test_associated7 - test_associated7 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" { xfail *-*-* } } + test_associated7 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" } end function function test_associated8 (a, b) @@ -74,6 +74,6 @@ function test_associated8 (a, b) integer, pointer :: b(:) logical :: test_associated8 - test_associated8 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" { xfail *-*-* } } + test_associated8 = associated (a, b) ! { dg-bogus "must be of rank -1" "pr101334" } end function diff --git a/gcc/testsuite/gfortran.dg/c-interop/cf-descriptor-5-c.c b/gcc/testsuite/gfortran.dg/c-interop/cf-descriptor-5-c.c index 0cd92e7..12464b5 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/cf-descriptor-5-c.c +++ b/gcc/testsuite/gfortran.dg/c-interop/cf-descriptor-5-c.c @@ -1,5 +1,6 @@ #include <stdlib.h> #include <stdio.h> +#include <alloca.h> #include <ISO_Fortran_binding.h> #include "dump-descriptors.h" diff --git a/gcc/testsuite/gfortran.dg/c-interop/cf-out-descriptor-6.f90 b/gcc/testsuite/gfortran.dg/c-interop/cf-out-descriptor-6.f90 index b1a8c53..bc19a71 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/cf-out-descriptor-6.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/cf-out-descriptor-6.f90 @@ -1,5 +1,5 @@ ! Reported as pr94070. -! { dg-do run { xfail *-*-* } } +! { dg-do run } ! { dg-additional-sources "cf-out-descriptor-6-c.c dump-descriptors.c" } ! { dg-additional-options "-g" } ! diff --git a/gcc/testsuite/gfortran.dg/c-interop/size.f90 b/gcc/testsuite/gfortran.dg/c-interop/size.f90 index 6c66997..58b32b0 100644 --- a/gcc/testsuite/gfortran.dg/c-interop/size.f90 +++ b/gcc/testsuite/gfortran.dg/c-interop/size.f90 @@ -1,5 +1,5 @@ ! Reported as pr94070. -! { dg-do run { xfail *-*-* } } +! { dg-do run } ! ! TS 29113 ! 6.4.2 SIZE diff --git a/gcc/testsuite/gfortran.dg/coarray/coarray_allocated.f90 b/gcc/testsuite/gfortran.dg/coarray/coarray_allocated.f90 new file mode 100644 index 0000000..a423d1f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/coarray/coarray_allocated.f90 @@ -0,0 +1,55 @@ +! { dg-do run } +! { dg-additional-options "-fdump-tree-original" } +! PR fortran/93834 - ICE in trans_caf_is_present + +program p + type t + integer, allocatable :: x[:,:,:] + end type t + integer, allocatable :: a[:] + type(t) :: c + if (allocated (a)) stop 1 + if (allocated (c%x)) stop 2 + + ! The coindexed scalar (!) variable is regarded as allocatable but + ! we can check the value on any image of the team as they are + ! established collectively. As tested by the dump, we do it on + ! this_image (). + ! + ! For this reason, -fcoarray=single and -fcoarray=lib give the + ! same result + if (allocated (a[1])) stop 3 + if (allocated (c%x[1,2,3])) stop 4 + + ! Allocate collectively + allocate(a[*]) + allocate(c%x[4,10,*]) + + if (.not. allocated (a)) stop 5 + if (.not. allocated (c%x)) stop 6 + if (.not. allocated (a[1])) stop 7 + if (.not. allocated (c%x[1,2,3])) stop 8 + + ! Dellocate collectively + deallocate(a) + deallocate(c%x) + + if (allocated (a)) stop 9 + if (allocated (c%x)) stop 10 + if (allocated (a[1])) stop 11 + if (allocated (c%x[1,2,3])) stop 12 +end + +! twice == 0 for .not. allocated' (coindexed vs. not) +! four times != for allocated (before alloc after dealloc, coindexed and not) + +! There are also == 0 and != 0 for (de)allocate checks with -fcoarray=single but those +! aren't prefixed by '(integer(kind=4) *)' + +! { dg-final { scan-tree-dump-times "\\(integer\\(kind=4\\) \\*\\) a.data != 0B" 4 "original" } } +! { dg-final { scan-tree-dump-times "\\(integer\\(kind=4\\) \\*\\) c.x.data != 0B" 4 "original" } } +! { dg-final { scan-tree-dump-times "\\(integer\\(kind=4\\) \\*\\) a.data == 0B" 2 "original" } } +! { dg-final { scan-tree-dump-times "\\(integer\\(kind=4\\) \\*\\) c.x.data == 0B" 2 "original" } } + +! Expected: always local access and never a call to _gfortran_caf_get +! { dg-final { scan-tree-dump-not "caf_get" "original" } } diff --git a/gcc/testsuite/gfortran.dg/gomp/order-5.f90 b/gcc/testsuite/gfortran.dg/gomp/order-5.f90 index 4d9e336..0dddb96 100644 --- a/gcc/testsuite/gfortran.dg/gomp/order-5.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/order-5.f90 @@ -116,14 +116,14 @@ subroutine f4 (a) end do end -! { dg-final { scan-tree-dump-times "#pragma omp distribute order\\(concurrent\\)" 6 "original"} } +! { dg-final { scan-tree-dump-times "#pragma omp distribute order\\(reproducible:concurrent\\)" 6 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp distribute order\\(unconstrained:concurrent\\)" 6 "original"} } -! { dg-final { scan-tree-dump-times "#pragma omp for nowait order\\(concurrent\\)" 6 "original"} } +! { dg-final { scan-tree-dump-times "#pragma omp for nowait order\\(reproducible:concurrent\\)" 6 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp for nowait order\\(unconstrained:concurrent\\)" 6 "original"} } -! { dg-final { scan-tree-dump-times "#pragma omp for order\\(concurrent\\)" 2 "original"} } +! { dg-final { scan-tree-dump-times "#pragma omp for order\\(reproducible:concurrent\\)" 2 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp for order\\(unconstrained:concurrent\\)" 2 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp parallel" 12 "original"} } -! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) order\\(concurrent\\)" 6 "original"} } +! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) order\\(reproducible:concurrent\\)" 6 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp simd linear\\(i:1\\) order\\(unconstrained:concurrent\\)" 6 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp taskloop" 2 "original"} } ! { dg-final { scan-tree-dump-times "#pragma omp teams" 8 "original"} } diff --git a/gcc/testsuite/gfortran.dg/gomp/pr43711.f90 b/gcc/testsuite/gfortran.dg/gomp/pr43711.f90 index e47e586..d790e3e 100644 --- a/gcc/testsuite/gfortran.dg/gomp/pr43711.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/pr43711.f90 @@ -11,8 +11,8 @@ program NF03_2_5_2_1a print *, 'FAIL' !$omp section print *, 'FAIL' - !$omp end sections nowait nowait ! { dg-error "Unexpected junk" } - !$omp end parallel -end program NF03_2_5_2_1a + !$omp end sections nowait nowait ! { dg-error "Unexpected junk after NOWAIT clause" } + !$omp end parallel ! { dg-error "Unexpected !.OMP END PARALLEL statement" } +end program NF03_2_5_2_1a ! { dg-error "Unexpected END statement" } -! { dg-excess-errors "Unexpected" } +! { dg-prune-output "Unexpected end of file" } diff --git a/gcc/testsuite/gfortran.dg/include_14.f90 b/gcc/testsuite/gfortran.dg/include_14.f90 index b306b2c..8110e49 100644 --- a/gcc/testsuite/gfortran.dg/include_14.f90 +++ b/gcc/testsuite/gfortran.dg/include_14.f90 @@ -1,5 +1,6 @@ -! { dg-additional-options "-cpp -idirafter /fdaf/ -I bar" } +! { dg-additional-options "-cpp -idirafter /fdaf/ -I bar -J foo/bar" } end +! default: warn for -I and -J but ignore other options. +! { dg-warning "Nonexistent include directory 'bar/'" "" { target *-*-* } 0 } +! { dg-warning "Nonexistent include directory 'foo/bar/'" "" { target *-*-* } 0 } -! { dg-warning "/fdaf/: No such file or directory" "" { target *-*-* } 0 } -! { dg-warning "bar: No such file or directory" "" { target *-*-* } 0 } diff --git a/gcc/testsuite/gfortran.dg/include_15.f90 b/gcc/testsuite/gfortran.dg/include_15.f90 index 4944282..18d91f6 100644 --- a/gcc/testsuite/gfortran.dg/include_15.f90 +++ b/gcc/testsuite/gfortran.dg/include_15.f90 @@ -1,5 +1,9 @@ -! { dg-additional-options "-cpp -idirafter /fdaf/ -I bar -Wmissing-include-dirs" } +! { dg-additional-options "-cpp -idirafter /fdaf/ -I bar -J foo/bar -Wmissing-include-dirs" } end -! { dg-warning "/fdaf/: No such file or directory" "" { target *-*-* } 0 } -! { dg-warning "bar: No such file or directory" "" { target *-*-* } 0 } +! { dg-warning " /fdaf/: No such file or directory" "" { target *-*-* } 0 } +! { dg-warning " bar: No such file or directory" "" { target *-*-* } 0 } +! { dg-warning " foo/bar: No such file or directory" "" { target *-*-* } 0 } + +! Depending how the testsuite is run, it may or may not print the following warning: +! { dg-prune-output "Warning: finclude: No such file or directory" } diff --git a/gcc/testsuite/gfortran.dg/include_16.f90 b/gcc/testsuite/gfortran.dg/include_16.f90 index 45794f2..65e4c7e 100644 --- a/gcc/testsuite/gfortran.dg/include_16.f90 +++ b/gcc/testsuite/gfortran.dg/include_16.f90 @@ -1,2 +1,2 @@ -! { dg-additional-options "-cpp -idirafter /fdaf/ -I bar -Wno-missing-include-dirs" } +! { dg-additional-options "-cpp -idirafter /fdaf/ -I bar -J foo/bar -Wno-missing-include-dirs" } end diff --git a/gcc/testsuite/gfortran.dg/include_17.f90 b/gcc/testsuite/gfortran.dg/include_17.f90 index 0ed5c86d..0667759 100644 --- a/gcc/testsuite/gfortran.dg/include_17.f90 +++ b/gcc/testsuite/gfortran.dg/include_17.f90 @@ -1,4 +1,6 @@ ! { dg-do compile } -! { dg-options "-I foo-bar -Wno-missing-include-dirs" } +! { dg-options "-I foo-bar -J foo/bar" } end +! { dg-warning "Nonexistent include directory 'foo-bar/'" "" { target *-*-* } 0 } +! { dg-warning "Nonexistent include directory 'foo/bar/'" "" { target *-*-* } 0 } diff --git a/gcc/testsuite/gfortran.dg/include_18.f90 b/gcc/testsuite/gfortran.dg/include_18.f90 index ca69df3..b74a585 100644 --- a/gcc/testsuite/gfortran.dg/include_18.f90 +++ b/gcc/testsuite/gfortran.dg/include_18.f90 @@ -1,3 +1,5 @@ ! { dg-do compile } -! { dg-options "-I nothere -Wno-missing-include-dirs" } +! { dg-options "-I nothere -J neither/here -Wmissing-include-dirs" } end +! { dg-warning "Nonexistent include directory 'nothere/'" "" { target *-*-* } 0 } +! { dg-warning "Nonexistent include directory 'neither/here/'" "" { target *-*-* } 0 } diff --git a/gcc/testsuite/gfortran.dg/include_19.f90 b/gcc/testsuite/gfortran.dg/include_19.f90 index 2a06817..7404929 100644 --- a/gcc/testsuite/gfortran.dg/include_19.f90 +++ b/gcc/testsuite/gfortran.dg/include_19.f90 @@ -1,4 +1,4 @@ ! { dg-do compile } -! { dg-options "-J foobar/foo -Wno-missing-include-dirs" } +! { dg-options "-I nothere -J foobar/foo -Wno-missing-include-dirs" } program main end program main diff --git a/gcc/testsuite/gfortran.dg/include_23.f90 b/gcc/testsuite/gfortran.dg/include_23.f90 new file mode 100644 index 0000000..421ddda --- /dev/null +++ b/gcc/testsuite/gfortran.dg/include_23.f90 @@ -0,0 +1,4 @@ +implicit none +include "nonexisting/file.f90" ! { dg-error "Cannot open included file 'nonexisting/file.f90'" } +end +! { dg-prune-output "compilation terminated." } diff --git a/gcc/testsuite/gfortran.dg/include_24.f90 b/gcc/testsuite/gfortran.dg/include_24.f90 new file mode 100644 index 0000000..1fe9eb5 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/include_24.f90 @@ -0,0 +1,4 @@ +implicit none +include "." ! { dg-error "Included file '.' is not a regular file" } +end +! { dg-prune-output "compilation terminated." } diff --git a/gcc/testsuite/gfortran.dg/include_9.f90 b/gcc/testsuite/gfortran.dg/include_9.f90 index c4ef50f..6b0648b 100644 --- a/gcc/testsuite/gfortran.dg/include_9.f90 +++ b/gcc/testsuite/gfortran.dg/include_9.f90 @@ -4,3 +4,4 @@ program main end program ! { dg-error "is not a regular file" " " { target *-*-* } 3 } +! { dg-prune-output "compilation terminated." } diff --git a/gcc/testsuite/gfortran.dg/intrinsic_size_3.f90 b/gcc/testsuite/gfortran.dg/intrinsic_size_3.f90 index 923cbc3..afdf9b3 100644 --- a/gcc/testsuite/gfortran.dg/intrinsic_size_3.f90 +++ b/gcc/testsuite/gfortran.dg/intrinsic_size_3.f90 @@ -22,4 +22,4 @@ program bug stop end program bug -! { dg-final { scan-tree-dump-times "iszs = \\(integer\\(kind=2\\)\\) MAX_EXPR <\\(D.\[0-9\]+->dim.0..ubound - D.\[0-9\]+->dim.0..lbound\\) \\+ 1, 0>;" 1 "original" } } +! { dg-final { scan-tree-dump-times "iszs = \\(integer\\(kind=2\\)\\) MAX_EXPR <\\(a.dim.0..ubound - a.dim.0..lbound\\) \\+ 1, 0>;" 1 "original" } } diff --git a/gcc/testsuite/gfortran.dg/pr102458.f90 b/gcc/testsuite/gfortran.dg/pr102458.f90 new file mode 100644 index 0000000..555e497 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr102458.f90 @@ -0,0 +1,42 @@ +! { dg-do compile } +! { dg-options "-fcoarray=lib" } +! PR fortran/102458 - standard intrinsics excluded in constant expressions + +subroutine s1 + integer :: a(command_argument_count()) = 1 ! { dg-error "Automatic array" } + print *, a +end + +program p + block + integer :: a(get_team()) = 1 ! { dg-error "Automatic array" } + print *, a + end block +end + +subroutine s2 + integer :: a(num_images()) = 1 ! { dg-error "Automatic array" } + print *, a +end + +function f() + block + integer :: a(team_number()) = 0 ! { dg-error "Automatic array" } + a = 1 + end block +end + +subroutine s3 + integer :: a(this_image()) = 1 ! { dg-error "Automatic array" } + print *, a +end + +subroutine s4 + integer, parameter :: n = 4 + integer, parameter :: x(transfer(n, n)) = 1 ! legal + integer :: y(transfer(n, n)) = 2 ! legal + integer, parameter :: k = size (x) ! ok +! integer, parameter :: m = size (y) ! fails, tracked separately + print *, k, x, y + if (k /= size (y)) stop 1 +end diff --git a/gcc/testsuite/gfortran.dg/pr102458b.f90 b/gcc/testsuite/gfortran.dg/pr102458b.f90 new file mode 100644 index 0000000..3e1026e --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr102458b.f90 @@ -0,0 +1,21 @@ +! { dg-do compile } +! { dg-options "-fdump-tree-original" } +! { dg-final { scan-tree-dump-times "_gfortran_stop_numeric" 0 "original" } } +! PR fortran/102458 + +subroutine s4 + integer, parameter :: n = 4 + integer :: w(transfer(n, n)) = 1 + integer :: x(transfer(n, n)) + integer :: y(2*int(n) - n) + type t + integer :: z(int(n)) + end type t + type(t) :: tt, uu(3) + integer, parameter :: i = size (w) + integer, parameter :: k = size (x) + integer, parameter :: m = size (y) + integer, parameter :: j = size (tt% z) + integer, parameter :: l = size (uu(2)% z) + if (i /= n .or. k /= n .or. m /= n .or. j /= n .or. l /= n) stop 1 +end diff --git a/gcc/testsuite/gfortran.dg/pr102520.f90 b/gcc/testsuite/gfortran.dg/pr102520.f90 new file mode 100644 index 0000000..1c98c18 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr102520.f90 @@ -0,0 +1,12 @@ +! { dg-do compile } +! PR fortran/102520 - ICE in expand_constructor, at fortran/array.c:1802 + +program p + type t + end type + type(t), parameter :: a(4) = shape(1) ! { dg-error "Incompatible" } + type(t), parameter :: b(2,2) = reshape(a,[2,2]) ! { dg-error "Incompatible" } + type(t), parameter :: c(2,2) = transpose(b) ! { dg-error "Unclassifiable" } +end + +! { dg-error "Different shape for array assignment" " " { target *-*-* } 7 } diff --git a/gcc/testsuite/gfortran.dg/predict-2.f90 b/gcc/testsuite/gfortran.dg/predict-2.f90 index 11a9ec5..93e3ad6 100644 --- a/gcc/testsuite/gfortran.dg/predict-2.f90 +++ b/gcc/testsuite/gfortran.dg/predict-2.f90 @@ -2,10 +2,10 @@ ! { dg-options "-O2 -fdump-tree-profile_estimate" } subroutine test(block, array) -integer :: i,j, block(9), array(2) +integer :: i,j, block(9), array(4) do i = array(1), array(2), 2 - do j = array(1), array(2), 3 + do j = array(3), array(4), 3 block(i) = j end do end do diff --git a/gcc/testsuite/gfortran.dg/size_optional_dim_1.f90 b/gcc/testsuite/gfortran.dg/size_optional_dim_1.f90 index c6e8f76..cbf4aa4 100644 --- a/gcc/testsuite/gfortran.dg/size_optional_dim_1.f90 +++ b/gcc/testsuite/gfortran.dg/size_optional_dim_1.f90 @@ -1,4 +1,5 @@ ! { dg-do run } +! { dg-additional-options "-fdump-tree-original" } ! PR 30865 - passing a subroutine optional argument to size(dim=...) ! used to segfault. program main @@ -19,3 +20,6 @@ contains ires = size (a1, dim=opt1) end subroutine checkv end program main + +! Ensure inline code is generated, cf. PR fortran/94070 +! { dg-final { scan-tree-dump-not "_gfortran_size" "original" } } diff --git a/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90 b/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90 index c49cd42..54271b1 100644 --- a/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90 +++ b/gcc/testsuite/gfortran.dg/transpose_optimization_2.f90 @@ -60,5 +60,5 @@ end ! ! The check below for temporaries gave 14 and 33 for "parm" and "atmp". ! -! { dg-final { scan-tree-dump-times "parm" 72 "original" } } +! { dg-final { scan-tree-dump-times "parm" 76 "original" } } ! { dg-final { scan-tree-dump-times "atmp" 13 "original" } } diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_1.f03 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_1.f03 index afd7522..8634031 100644 --- a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_1.f03 +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_1.f03 @@ -196,16 +196,25 @@ END MODULE ! Check assumed rank calls
- call foobar (u3, 0)
- call foobar (u4, 1)
+ call foobar (u3, 0, is_u3=.true.)
+ call foobar (u4, 1, is_u3=.false.)
contains
- subroutine foobar (arg, ranki)
+ subroutine foobar (arg, ranki, is_u3)
class(*) :: arg (..)
integer :: ranki
+ logical, value :: is_u3
integer i
i = rank (arg)
- if (i .ne. ranki) STOP 1 + if (i .ne. ranki) STOP 1
+ if (is_u3) then
+ if (EXTENDS_TYPE_OF (arg, obj1) .neqv. .FALSE.) STOP 1
+ else
+ ! arg == u4
+ if (EXTENDS_TYPE_OF (arg, obj1) .neqv. .FALSE.) STOP 1
+ end if
+ ! if (.NOT. SAME_TYPE_AS (arg, u3)) STOP 1
+ ! if (.NOT. SAME_TYPE_AS (arg, u4)) STOP 1
end subroutine
END
diff --git a/gcc/testsuite/gfortran.dg/unlimited_polymorphic_32.f90 b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_32.f90 new file mode 100644 index 0000000..df57bcd --- /dev/null +++ b/gcc/testsuite/gfortran.dg/unlimited_polymorphic_32.f90 @@ -0,0 +1,254 @@ +implicit none +type t2 + integer :: x +end type t2 + +type, extends(t2) :: t2e + integer :: y +end type t2e + +type t + class(*), allocatable :: au, au2(:,:) + class(t2), allocatable :: at, at2(:,:) +end type t + +type(t), target :: var, var0, var2(4), var2a(4) +class(*), allocatable :: au, au2(:,:) +class(t2), allocatable :: at, at2(:,:) + + +if (same_type_as (var%au, var%at)) error stop 1 +if (same_type_as (var%au2, var%at)) error stop 2 +if (same_type_as (var%au, var%at)) error stop 3 +! Note: class(*) has no declared type, hence .false. +if (same_type_as (var%au, var0%au)) error stop 4 +if (same_type_as (var%au2, var0%au2)) error stop 5 +if (same_type_as (var%au, var0%au2)) error stop 6 +call c1(var%au, var%au, var%au2) + +if (.not.same_type_as (var%at, var%at)) error stop 7 +if (.not.same_type_as (var%at2, var%at)) error stop 8 +if (.not.same_type_as (var%at, var%at2)) error stop 9 +if (.not.extends_type_of (var%at, var%at)) error stop 10 +if (.not.extends_type_of (var%at2, var%at)) error stop 11 +if (.not.extends_type_of (var%at, var%at2)) error stop 12 +if (same_type_as (var%at, var0%au)) error stop 13 +if (same_type_as (var%at2, var0%au2)) error stop 14 +if (same_type_as (var%at, var0%au2)) error stop 15 +call c2(var%at, var%at, var%at2) + +if (same_type_as (au, var%at)) error stop 16 +if (same_type_as (au2, var%at)) error stop 17 +if (same_type_as (au, var%at)) error stop 18 +! Note: class(*) has no declared type, hence .false. +if (same_type_as (au, var0%au)) error stop 19 +if (same_type_as (au2, var0%au2)) error stop 20 +if (same_type_as (au, var0%au2)) error stop 21 +call c1(au, var%au, var%au2) + +if (.not.same_type_as (at, var%at)) error stop 22 +if (.not.same_type_as (at2, var%at)) error stop 23 +if (.not.same_type_as (at, var%at2)) error stop 24 +if (.not.extends_type_of (at, var%at)) error stop 25 +if (.not.extends_type_of (at2, var%at)) error stop 26 +if (.not.extends_type_of (at, var%at2)) error stop 27 +if (same_type_as (at, var0%au)) error stop 28 +if (same_type_as (at2, var0%au2)) error stop 29 +if (same_type_as (at, var0%au2)) error stop 30 +call c2(var%at, var%at, var%at2) + +if (same_type_as (var%au, at)) error stop 31 +if (same_type_as (var%au2, at)) error stop 32 +if (same_type_as (var%au, at)) error stop 33 +! Note: class(*) has no declared type, hence .false. +if (same_type_as (var%au, au)) error stop 34 +if (same_type_as (var%au2, au2)) error stop 35 +if (same_type_as (var%au, au2)) error stop 36 +call c1(var%au, var%au, au2) + +if (.not.same_type_as (var%at, at)) error stop 37 +if (.not.same_type_as (var%at2, at)) error stop 38 +if (.not.same_type_as (var%at, at2)) error stop 39 +if (.not.extends_type_of (var%at, at)) error stop 40 +if (.not.extends_type_of (var%at2, at)) error stop 41 +if (.not.extends_type_of (var%at, at2)) error stop 42 +if (same_type_as (var%at, au)) error stop 43 +if (same_type_as (var%at2, au2)) error stop 44 +if (same_type_as (var%at, au2)) error stop 45 +call c2(var%at, var%at, at2) + +allocate(t2e :: var0%at, var0%at2(4,4)) +allocate(t2 :: var0%au, var0%au2(4,4)) + +if (.not.same_type_as (var0%au, var%at)) error stop 46 +if (.not.same_type_as (var0%au2, var%at)) error stop 47 +if (.not.same_type_as (var0%au, var%at)) error stop 48 +if (.not.same_type_as (var0%au, var0%au2)) error stop 49 +if (.not.same_type_as (var0%au2, var0%au2)) error stop 50 +if (.not.same_type_as (var0%au, var0%au2)) error stop 51 +if (.not.extends_type_of (var0%au, var%at)) error stop 52 +if (.not.extends_type_of (var0%au2, var%at)) error stop 53 +if (.not.extends_type_of (var0%au, var%at)) error stop 54 +if (.not.extends_type_of (var0%au, var0%au2)) error stop 55 +if (.not.extends_type_of (var0%au2, var0%au2)) error stop 56 +if (.not.extends_type_of (var0%au, var0%au2)) error stop 57 + +if (.not.same_type_as (var0%au, at)) error stop 58 +if (.not.same_type_as (var0%au2, at)) error stop 59 +if (.not.same_type_as (var0%au, at2)) error stop 60 +if (.not.extends_type_of (var0%au, at)) error stop 61 +if (.not.extends_type_of (var0%au2, at)) error stop 62 +if (.not.extends_type_of (var0%au, at2)) error stop 63 + +if (same_type_as (var0%at, var%at)) error stop 64 +if (same_type_as (var0%at2, var%at)) error stop 65 +if (same_type_as (var0%at, var%at)) error stop 66 +if (same_type_as (var0%at, var0%au2)) error stop 67 +if (same_type_as (var0%at2, var0%au2)) error stop 68 +if (same_type_as (var0%at, var0%au2)) error stop 69 +if (.not.extends_type_of (var0%at, var%at)) error stop 70 +if (.not.extends_type_of (var0%at2, var%at)) error stop 71 +if (.not.extends_type_of (var0%at, var%at)) error stop 72 +if (.not.extends_type_of (var0%at, var0%au2)) error stop 73 +if (.not.extends_type_of (var0%at2, var0%au2)) error stop 74 +if (.not.extends_type_of (var0%at, var0%au2)) error stop 75 + +if (same_type_as (var0%at, at)) error stop 76 +if (same_type_as (var0%at2, at)) error stop 77 +if (same_type_as (var0%at, at2)) error stop 78 +if (.not.extends_type_of (var0%at, at)) error stop 79 +if (.not.extends_type_of (var0%at2, at)) error stop 80 +if (.not.extends_type_of (var0%at, at2)) error stop 81 + +call c3(var0%au, var0%au2, var0%at, var0%at2) +call c4(var0%au, var0%au2, var0%at, var0%at2) + +contains + subroutine c1(x, y, z) + class(*) :: x, y(..), z(..) + if (same_type_as (x, var0%at)) error stop 82 + if (same_type_as (y, var0%at)) error stop 83 + if (same_type_as (z, var0%at)) error stop 84 + if (same_type_as (x, var%au)) error stop 85 + if (same_type_as (y, var%au2)) error stop 86 + if (same_type_as (z, var%au2)) error stop 87 + + if (same_type_as (x, at)) error stop 88 + if (same_type_as (y, at)) error stop 89 + if (same_type_as (z, at)) error stop 90 + if (same_type_as (x, au)) error stop 91 + if (same_type_as (y, au2)) error stop 92 + if (same_type_as (z, au2)) error stop 93 + end + + subroutine c2(x, y, z) + class(*) :: x, y(..), z(..) + if (.not.same_type_as (x, var0%at)) error stop 94 + if (.not.same_type_as (y, var0%at)) error stop 95 + if (.not.same_type_as (z, var0%at)) error stop 96 + if (.not.extends_type_of (x, var0%at)) error stop 97 + if (.not.extends_type_of (y, var0%at)) error stop 98 + if (.not.extends_type_of (z, var0%at)) error stop 99 + if (same_type_as (x, var%au)) error stop 100 + if (same_type_as (y, var%au2)) error stop 101 + if (same_type_as (z, var%au2)) error stop 102 + + if (.not.same_type_as (x, at)) error stop 103 + if (.not.same_type_as (y, at)) error stop 104 + if (.not.same_type_as (z, at)) error stop 105 + if (.not.extends_type_of (x, at)) error stop 106 + if (.not.extends_type_of (y, at)) error stop 107 + if (.not.extends_type_of (z, at)) error stop 108 + if (same_type_as (x, au)) error stop 109 + if (same_type_as (y, au2)) error stop 110 + if (same_type_as (z, au2)) error stop 111 + end + + subroutine c3(mau, mau2, mat, mat2) + class(*) :: mau, mau2(:,:), mat, mat2(:,:) + + if (.not.same_type_as (mau, var%at)) error stop 112 + if (.not.same_type_as (mau2, var%at)) error stop 113 + if (.not.same_type_as (mau, var%at)) error stop 114 + if (.not.same_type_as (mau, var0%au2)) error stop 115 + if (.not.same_type_as (mau2, var0%au2)) error stop 116 + if (.not.same_type_as (mau, var0%au2)) error stop 117 + if (.not.extends_type_of (mau, var%at)) error stop 118 + if (.not.extends_type_of (mau2, var%at)) error stop 119 + if (.not.extends_type_of (mau, var%at)) error stop 120 + if (.not.extends_type_of (mau, var0%au2)) error stop 121 + if (.not.extends_type_of (mau2, var0%au2)) error stop 122 + if (.not.extends_type_of (mau, var0%au2)) error stop 123 + + if (.not.same_type_as (mau, at)) error stop 124 + if (.not.same_type_as (mau2, at)) error stop 125 + if (.not.same_type_as (mau, at2)) error stop 126 + if (.not.extends_type_of (mau, at)) error stop 127 + if (.not.extends_type_of (mau2, at)) error stop 128 + if (.not.extends_type_of (mau, at2)) error stop 129 + + if (same_type_as (mat, var%at)) error stop 130 + if (same_type_as (mat2, var%at)) error stop 131 + if (same_type_as (mat, var%at)) error stop 132 + if (same_type_as (mat, var0%au2)) error stop 133 + if (same_type_as (mat2, var0%au2)) error stop 134 + if (same_type_as (mat, var0%au2)) error stop 135 + if (.not.extends_type_of (mat, var%at)) error stop 136 + if (.not.extends_type_of (mat2, var%at)) error stop 137 + if (.not.extends_type_of (mat, var%at)) error stop 138 + if (.not.extends_type_of (mat, var0%au2)) error stop 139 + if (.not.extends_type_of (mat2, var0%au2)) error stop 140 + if (.not.extends_type_of (mat, var0%au2)) error stop 141 + + if (same_type_as (mat, at)) error stop 142 + if (same_type_as (mat2, at)) error stop 143 + if (same_type_as (mat, at2)) error stop 144 + if (.not.extends_type_of (mat, at)) error stop 145 + if (.not.extends_type_of (mat2, at)) error stop 147 + if (.not.extends_type_of (mat, at2)) error stop 148 + end + + subroutine c4(mau, mau2, mat, mat2) + class(*) :: mau(..), mau2(..), mat(..), mat2(..) + + if (.not.same_type_as (mau, var%at)) error stop 149 + if (.not.same_type_as (mau2, var%at)) error stop 150 + if (.not.same_type_as (mau, var%at)) error stop 151 + if (.not.same_type_as (mau, var0%au2)) error stop 152 + if (.not.same_type_as (mau2, var0%au2)) error stop 153 + if (.not.same_type_as (mau, var0%au2)) error stop 154 + if (.not.extends_type_of (mau, var%at)) error stop 155 + if (.not.extends_type_of (mau2, var%at)) error stop 156 + if (.not.extends_type_of (mau, var%at)) error stop 157 + if (.not.extends_type_of (mau, var0%au2)) error stop 158 + if (.not.extends_type_of (mau2, var0%au2)) error stop 159 + if (.not.extends_type_of (mau, var0%au2)) error stop 160 + + if (.not.same_type_as (mau, at)) error stop 161 + if (.not.same_type_as (mau2, at)) error stop 162 + if (.not.same_type_as (mau, at2)) error stop 163 + if (.not.extends_type_of (mau, at)) error stop 164 + if (.not.extends_type_of (mau2, at)) error stop 165 + if (.not.extends_type_of (mau, at2)) error stop 166 + + if (same_type_as (mat, var%at)) error stop 167 + if (same_type_as (mat2, var%at)) error stop 168 + if (same_type_as (mat, var%at)) error stop 169 + if (same_type_as (mat, var0%au2)) error stop 170 + if (same_type_as (mat2, var0%au2)) error stop 171 + if (same_type_as (mat, var0%au2)) error stop 172 + if (.not.extends_type_of (mat, var%at)) error stop 173 + if (.not.extends_type_of (mat2, var%at)) error stop 174 + if (.not.extends_type_of (mat, var%at)) error stop 175 + if (.not.extends_type_of (mat, var0%au2)) error stop 176 + if (.not.extends_type_of (mat2, var0%au2)) error stop 178 + if (.not.extends_type_of (mat, var0%au2)) error stop 179 + + if (same_type_as (mat, at)) error stop 180 + if (same_type_as (mat2, at)) error stop 181 + if (same_type_as (mat, at2)) error stop 182 + if (.not.extends_type_of (mat, at)) error stop 183 + if (.not.extends_type_of (mat2, at)) error stop 184 + if (.not.extends_type_of (mat, at2)) error stop 185 + end +end |