🚀 go-pugleaf

Yesterday, I posted a request for help with an obscure problem I've been
having in this area.  As yet, I've had no response, but I have managed to
localise the problem to an interaction between the FORTRAN I/O system and
the system() subroutine.  The following program exhibits the problem.  I
have been told that the compiler is not the latest release, by the way.

Is this a known problem?   Has Sun released a fix?  Or is it a 'feature'?

c     buggy.f   Russ Evans 27-Feb-90

c     demonstrates problem of interaction between the FORTRAN I/O
c     rt-system and the 'system' call on Sun 4/280.  As yet untested
c     in other environments.  An erroneous EOF is found on the input 
c     unit following the call to system.  Contents of infile.dat and 
c     of the argument to system appear to be immaterial.  Behaviour
c     does not depend on choice of unit 10 for file input.

      character record*80
      character infile*15
      parameter (infile = 'infile.dat')
      integer   i,system

      open(unit=10, file=infile, status='OLD', err=901) 

   10 read(unit=10, fmt='(A)', err=902, end=903) record
      write(unit=6, fmt='(A)') record
      i=system('lpr junk')
      goto 10

  901 write(unit=6, fmt='(2A)') 'Failed to open ', infile
      stop 
  902 stop 'Read error on unit 10'
  903 stop 'End of file on unit 10'

      end


Russ Evans, British Geological Survey, Edinburgh UK  e_gs18@va.nmh.ac.uk
 .. just visiting (and working hard) at UCSB ..