Mercurial > octave-libgccjit
changeset 18565:c08776badd3d stable
* r1mach.f: Fix cut and paste errors (bug #32120).
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 17 Mar 2014 18:35:54 -0400 |
parents | 564a74b2d509 |
children | 90dbbafb0502 |
files | liboctave/cruft/misc/r1mach.f |
diffstat | 1 files changed, 4 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/liboctave/cruft/misc/r1mach.f Thu Mar 06 17:32:49 2014 +0100 +++ b/liboctave/cruft/misc/r1mach.f Mon Mar 17 18:35:54 2014 -0400 @@ -1,8 +1,8 @@ - double precision function r1mach (i) + real function r1mach (i) integer i logical init - double precision rmach(5) - double precision slamch + real rmach(5) + real slamch external slamch save init, rmach data init /.false./ @@ -20,5 +20,5 @@ 999 write (*, 1999) i 1999 format (' r1mach - i out of bounds', i10) call xstopx (' ') - d1mach = 0 + r1mach = 0 end