public inbox for gcc-cvs@sourceware.org
help / color / mirror / Atom feed
* [gcc r12-1355] testsuite: Fix up libgomp.fortran/pr100981-2.f90 testcase [PR100981]
@ 2021-06-10  7:32 Jakub Jelinek
  0 siblings, 0 replies; only message in thread
From: Jakub Jelinek @ 2021-06-10  7:32 UTC (permalink / raw)
  To: gcc-cvs

https://gcc.gnu.org/g:7d19a50ea1e5e9858bb7cd258fa4f9db89ecfcb2

commit r12-1355-g7d19a50ea1e5e9858bb7cd258fa4f9db89ecfcb2
Author: Jakub Jelinek <jakub@redhat.com>
Date:   Thu Jun 10 09:31:06 2021 +0200

    testsuite: Fix up libgomp.fortran/pr100981-2.f90 testcase [PR100981]
    
    The dsdotr and dsdoti variables uninitialized and the testcase fails e.g.
    on i686-linux.  Fixed by zero initialization.
    
    2021-06-10  Jakub Jelinek  <jakub@redhat.com>
    
            PR tree-optimization/100981
            * testsuite/libgomp.fortran/pr100981-2.f90 (cdcdot): Initialize
            dsdotr and dsdoti to 0.

Diff:
---
 libgomp/testsuite/libgomp.fortran/pr100981-2.f90 | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/libgomp/testsuite/libgomp.fortran/pr100981-2.f90 b/libgomp/testsuite/libgomp.fortran/pr100981-2.f90
index 12836d4ad4c..9814224b5e9 100644
--- a/libgomp/testsuite/libgomp.fortran/pr100981-2.f90
+++ b/libgomp/testsuite/libgomp.fortran/pr100981-2.f90
@@ -9,6 +9,8 @@ complex function cdcdot(n, cx)
   double precision :: dsdotr, dsdoti, dt1, dt3
 
   kx = 1
+  dsdotr = 0
+  dsdoti = 0
   do i = 1, n
      dt1 = real(cx(kx))
      dt3 = aimag(cx(kx))


^ permalink raw reply	[flat|nested] only message in thread

only message in thread, other threads:[~2021-06-10  7:32 UTC | newest]

Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-06-10  7:32 [gcc r12-1355] testsuite: Fix up libgomp.fortran/pr100981-2.f90 testcase [PR100981] Jakub Jelinek

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).