From 7d19a50ea1e5e9858bb7cd258fa4f9db89ecfcb2 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Thu, 10 Jun 2021 09:31:06 +0200 Subject: [PATCH] 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 PR tree-optimization/100981 * testsuite/libgomp.fortran/pr100981-2.f90 (cdcdot): Initialize dsdotr and dsdoti to 0. --- 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))