Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!linus!philabs!prls!pyramid!decwrl!sun!steved
From: steved@sun.uucp (Steve Dever)
Newsgroups: net.lang.f77
Subject: Re: possible implied-do bug?
Message-ID: <4456@sun.uucp>
Date: Wed, 25-Jun-86 16:05:09 EDT
Article-I.D.: sun.4456
Posted: Wed Jun 25 16:05:09 1986
Date-Received: Fri, 27-Jun-86 05:38:46 EDT
References: <1452@alvin.mcnc.UUCP>
Reply-To: steved@sun.UUCP (Steve Dever)
Organization: Sun Microsystems, Inc.
Lines: 22
Keywords: implied do, parenthesis

In article <1452@alvin.mcnc.UUCP> kenkel@mcnc.UUCP (Stephen Kenkel) writes:
>The following program compiles under VMS fortran, but not
>f77:
>
>	  dimension l(10),m(10),n(10)
>          write (*, * ) i,((l(k), m(k), n (k)), k=1,10)
>	  end
>

The ANSI FORTRAN standard (section 12.8.2.3) states that an implied DO list
has the form:

     (dlist, i = e1, e2 [, e3])

where dlist is an input/output list.
The standard does not allow an extra set of parentheses around
an I/O list in a READ or WRITE statement so the compiler is correct in not
accepting them.  This was allowed in the FORTRAN-66 standard but was removed
to eliminate the syntactic conflict with complex constants in a list-directed
output list.

Steve Dever (sun!steved)