# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1395095754 14400
# Node ID c08776badd3d7d59b8c918a09710dfc1f18add3d
# Parent  564a74b2d509e984e73c54bc5b1bbb91c7ddb013
* r1mach.f: Fix cut and paste errors (bug #32120).

diff -r 564a74b2d509 -r c08776badd3d liboctave/cruft/misc/r1mach.f
--- 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