🚀 go-pugleaf

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