mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2024-12-30 10:54:50 +08:00
Code Issues Packages Projects Releases Wiki Activity

(dnrm2): Avoid uninitialized (and

Browse Source 
possibly uninitialized) variables and declare dnrm2.

From-SVN: r18069
This commit is contained in:
Dave Love 1998-02-18 12:00:51 +00:00
parent 3dc888ad51
commit 9f842786a0
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/testsuite/g77.f-torture/execute/dnrm2.f
View File

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