f77 stop bug

[teklabs!tekcrd!tekcad!franka]

	I have encountered a bug with the f77 endfile statement. If the unit
is opened to /dev/null, the endfile statement loops endlessly in the routine
t_runc (in the file /usr/src/lib/libI77/endfile.c). This loop also occurs on
the stop statement which does an automtic endfile on all open units. If the
unit is redirected through the shell (e.g., unit 6 with stdout directed to
/dev/null), the program seems to terminate properly. Examples:

      open(4,file="/dev/null",form="formatted)
      write(4,"('this will loop endlessly')")
      stop
      end

      open(4,file="filename",form="formatted)
      write(4,"('this will terminate normally')")
      stop
      end

      write(6,"('this will terminate even if stdout is redirected',
     + ' to /dev/null')")
      stop
      end

	I have no fix for this bug, but somebody at Beserkely should probably
be interested, and everybody should be warned.

					Frank Adrian
					Tektronix, Inc.

uucp:	 {ucbvax,decvax,chico,pur-ee,cbosg,ihnss}!teklabs!tekcad!franka
CSnet:	 franka at tek
ARPAnet: franka.tek at rand-relay