Mercurial > hg > octave-max

view libcruft/misc/d1mach-tst.for @ 14036:29e9eb59f917

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
ls_command.m: Fix incorrect listing command on MinGW (Bug #35038, Bug #35039) * ls_command.m: Use 'dir /D' for listing command on MinGW. Add %! tests.
author Rik <octave@nomad.inbox5.com>
date Mon, 12 Dec 2011 13:52:35 -0800
parents 5266e351a19c
children
line wrap: on
line source

      program main
      integer i
      double precision d1mach
      double precision t1, t2
      do 10 i = 1, 5
        print *, d1mach (i)
   10 continue
      end