g77 bug

[Jeffrey V Siebers]

I thought I reported this bug ~1 month ago, but am not sure.

Anyway, The little test program below works on arbitrary
compilers, except the latest g77 compilers.

Good Luck!

Jeff

    program stest 
c 
c Jeff Siebers, MCV 
c 
c  Works with other compilers.....(old g77, sun, sgi, ...) 
c 
      integer iu1 
      character string*80 
      iu1 = 39 

      write (iu1, '(a40)') 'SUCCESS: Your Compiler is Good' 
      write (iu1, '(a40)') 'Second Text Line' 
c 
c print *, 'backspace' 
      backspace iu1 
c 
c print *, 'writing endfile' 
      endfile iu1 
c print *, 'Rewinding Stream' 
      rewind iu1 
c print *, 'Reading From Stream' 
      read (iu1, '(a40)') string 
      print *, string 
      return 
      end