Path: utzoo!attcan!uunet!ncrlnk!ncrcae!ece-csc!mcnc!xanth!nic.MR.NET!eta!phinker
From: phinker@eta.unix.ETA.COM (Paul Hinker)
Newsgroups: comp.lang.fortran
Subject: Re: Dubious Fortran Construct
Summary: More examples
Keywords: branching doloops
Message-ID: <828@wilbur.unix.ETA.COM>
Date: 16 Dec 88 15:00:23 GMT
References: <22994@sgi.SGI.COM> <11800009@modcomp> <1136@ncar.ucar.edu>
Organization: ETA Systems, Inc.
Lines: 35

In article <1136@ncar.ucar.edu>, pack@acdpyr.ucar.edu (Dan Packman) writes:
> I ran the following horrible code:

Horrible code deleted ...

>       System           K
> ========================================
>     Pyramid OSX4.0     80
>     SUN OS 4.0         92
>     VAX/VMS 4.7        92
>     CRAY COS1.15       [Warning notice from compiler, infinite loop generated]
> 
> I think this particular case (with the numbered line not being a continuation)
> should be flagged illegal.  "To every do loop, a continue" (or end do)

I ran the above code on a couple other machines and thought I'd post the
results to show what kind of range there was for this simple test case :

   System                K
   ------               ---
Cyber 855 Nos 2.5.3      82
Cyber 205 Vsos 237       Fatal compilation error (Transfer inside DO)
Eta-10Q   R0120N2        Fatal compilation error (Transfer inside DO)
Apollo DN 3000 Aegis 9.7 65785

  How do PC-Fortrans handle this little beauty?  Could someone post the 
results.

> Dan Packman     NCAR                         INTERNET: pack@acdpyr.UCAR.EDU
> (303) 497-1427  P.O. Box 3000                   CSNET: pack@ncar.CSNET
>                 Boulder, CO  80307       DECNET  SPAN: 9.367::PACK

 
Paul Hinker       Eta Systems, Inc.            INET : phinker@aring.ETA.COM
            --- Looking for something snappy to put here ---