Xref: utzoo alt.msdos.programmer:730 comp.sys.ibm.pc:38469 comp.lang.fortran:2688
Path: utzoo!utgpu!attcan!uunet!aplcen!samsung!usc!rutgers!att!watmath!maytag!watstat!dmurdoch
From: dmurdoch@watstat.waterloo.edu (Duncan Murdoch)
Newsgroups: alt.msdos.programmer,comp.sys.ibm.pc,comp.lang.fortran
Subject: MS Fortran bug
Summary: A simple program won't run!  Help!
Message-ID: <863@maytag.waterloo.edu>
Date: 19 Nov 89 15:31:55 GMT
Sender: daemon@maytag.waterloo.edu
Reply-To: dmurdoch@watstat.waterloo.edu (Duncan Murdoch)
Organization: U. of Waterloo, Ontario
Lines: 30


The following little program crashes an XT clone with an 8086/8087.  The crash
seems to occur in the start-up code where the run-time library is trying to 
determine the coprocessor type, and goes away if I single-step or if I
link in more library routines by referencing something like the NAG random
number generator.  Can anyone suggest any fix for this?


      external Eval, Cube
      real*8 Cube,x
      x = 1.0
      x = Cube(x)
      stop
      end
c
      subroutine Eval(Fn,N,X,Value)
      real*8   Fn
      integer  N
      real*8   X(N),Value
      Value = Fn(N,X)
      return
      end
c
      real*8 function Cube(X)
      real*8 X
      Cube = X**3
      return
      end
     
Duncan Murdoch