diff options
| author | Dave Love <fx@gcc.gnu.org> | 1998-02-18 12:00:51 +0000 |
|---|---|---|
| committer | Dave Love <fx@gcc.gnu.org> | 1998-02-18 12:00:51 +0000 |
| commit | 9f842786a04b56398b9cac1ea0ff65e9d60e5105 (patch) | |
| tree | 049b109dad80aed6068fed20d5f0a14e72075cec | |
| parent | 3dc888ad51dc9f55234b430d9ccb1bc67db0817c (diff) | |
| download | gcc-9f842786a04b56398b9cac1ea0ff65e9d60e5105.zip gcc-9f842786a04b56398b9cac1ea0ff65e9d60e5105.tar.gz gcc-9f842786a04b56398b9cac1ea0ff65e9d60e5105.tar.bz2 | |
(dnrm2): Avoid uninitialized (and
possibly uninitialized) variables and declare dnrm2.
From-SVN: r18069
| -rw-r--r-- | gcc/testsuite/g77.f-torture/execute/dnrm2.f | 4 |
1 files changed, 3 insertions, 1 deletions
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 |