From 9f842786a04b56398b9cac1ea0ff65e9d60e5105 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Wed, 18 Feb 1998 12:00:51 +0000 Subject: [PATCH] (dnrm2): Avoid uninitialized (and possibly uninitialized) variables and declare dnrm2. From-SVN: r18069 --- gcc/testsuite/g77.f-torture/execute/dnrm2.f | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/g77.f-torture/execute/dnrm2.f b/gcc/testsuite/g77.f-torture/execute/dnrm2.f index 649e872..9668966 100644 --- a/gcc/testsuite/g77.f-torture/execute/dnrm2.f +++ b/gcc/testsuite/g77.f-torture/execute/dnrm2.f @@ -15,7 +15,7 @@ C (This is actually an obsolete version of dnrm2 -- consult the c current Netlib BLAS.) integer i - double precision a(1:100) + double precision a(1:100), dnrm2 do i=1,100 a(i)=0.D0 enddo @@ -26,6 +26,8 @@ c current Netlib BLAS.) integer i, incx, ix, j, n, next double precision dx(1), cutlo, cuthi, hitest, sum, xmax,zero,one data zero, one /0.0d0, 1.0d0/ + data cutlo, cuthi / 8.232d-11, 1.304d19 / + j = 0 if(n .gt. 0 .and. incx.gt.0) go to 10 dnrm2 = zero go to 300 -- 2.7.4