Problems with F77 from release 3.3

[Calvin H. Vu]

In article <9006270938.aa06333 at VGR.BRL.MIL> XBR2D96D at DDATHD21.BITNET (Knobi der Rechnerschrat) writes:

>Hallo,

>  the following program gives a core dump when compiled/linked/run on
>a 3.3 4D/70GT. The program dumps during the second way through the loop.

>      program test
>      character*72 cline
>      cline = ' 1   2   3 '
>      do 100 ii = 1 , 100
>      write (40,*) cline
>      backspace (40)
>      read (40,*) i,j,k
>      write (*,*) i,j,k
>100   continue
>      end
    The problem is due to a bug in ftell() in a special circumstance.
It will be fixed in the 3.3 maintenance release.   Meanwhile you can work
around this problem by adding a dummy statement:
	CALL FSEEK(40, 0, 1)		! seek to the same position
just before the backspace statement.

>Regards
>Martin Knoblauch

>TH-Darmstadt
>Physical Chemistry 1
>Petersenstrasse 20
>D-6100 Darmstadt, FRG

>BITNET: <XBR2D96D at DDATHD21>

- calvin
-----------------------------------------------------------------------------
Calvin H. Vu			   | "We are each of us angels with only one
Silicon Graphics Computer Systems  | wing.  And we can only fly embracing
calvin at sgi.com   (415) 962-3679	   | each other."