XBR2D96D@DDATHD21.BITNET (Knobi der Rechnerschrat) (06/27/90)
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
dbx shows that the problem is related to the backspace routines.
Replacing backspace with rewind helps, but is NOT desirable. HELP !!!
Regards
Martin Knoblauch
TH-Darmstadt
Physical Chemistry 1
Petersenstrasse 20
D-6100 Darmstadt, FRG
BITNET: <XBR2D96D@DDATHD21>calvin@dinkum.sgi.com (Calvin H. Vu) (06/29/90)
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."