Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!usc!sdd.hp.com!decwrl!nsc!voder!berlioz.nsc.com!atul
From: atul@.nsc.com (atul)
Newsgroups: comp.lang.fortran
Subject: Fortran on the DEC 5500
Message-ID: <1991Mar9.031236.26924@berlioz.nsc.com>
Date: 9 Mar 91 03:12:36 GMT
Sender: news@berlioz.nsc.com
Organization: National Semiconductor Corporation
Lines: 36
Originator: atul@snappy

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