testsuite: Fix up libgomp.fortran/pr100981-2.f90 testcase [PR100981]
authorJakub Jelinek <jakub@redhat.com>
Thu, 10 Jun 2021 07:31:06 +0000 (09:31 +0200)
committerJakub Jelinek <jakub@redhat.com>
Thu, 10 Jun 2021 07:31:06 +0000 (09:31 +0200)
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.

libgomp/testsuite/libgomp.fortran/pr100981-2.f90

index 12836d4..9814224 100644 (file)
@@ -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))