Path: utzoo!attcan!uunet!tut.cis.ohio-state.edu!ucsd!ames!sgi!shinobu!odin!dinkum!calvin
From: calvin@dinkum.sgi.com (Calvin H. Vu)
Newsgroups: comp.sys.sgi
Subject: Re: Problems with F77 from release 3.3
Message-ID: <9689@odin.corp.sgi.com>
Date: 28 Jun 90 18:23:16 GMT
References: <9006270938.aa06333@VGR.BRL.MIL>
Sender: news@odin.corp.sgi.com
Lines: 38

In article <9006270938.aa06333@VGR.BRL.MIL> XBR2D96D@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@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@sgi.com   (415) 962-3679	   | each other."