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))