atul@.nsc.com (atul) (03/09/91)
Can anyone enlighten me as to why the following program
behaves in the manner it does
IMPLICIT REAL*8 (A-H,O-Z)
dimension ablnks(8)
data ah/8H /
data ablnks /8*8H /
do 3 i=1,8
3 if(ablnks(i).ne.ah) write(6,*)i
stop
end
Produces the output
5
6
7
8
The computer system details are as follows
------------------------------------------
System
ULTRIX V4.1 (Rev. 52) System #1: Mon Feb 18 14:52:37 EST 1991
UWS V4.1 (Rev. 197)
f77 (f77)
Mips Computer Systems 2.10
-----------------------------------------
Please reply by email.
--
*********************************************************************
Atul P. Agarwal | You can cage a swallow can't you ?
National Semiconductor Corp., | But you can't swallow a cage can you ?
atul@berlioz.nsc.com | - Martin Gardner