From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <liakh@dol.ru>
X-Spam-Checker-Version: SpamAssassin 3.2.5 (2008-06-10) on sa.int.altlinux.org
X-Spam-Level: *
X-Spam-Status: No, score=1.1 required=5.0 tests=BAYES_50,DNS_FROM_OPENWHOIS
	autolearn=no version=3.2.5
From: "Andrey Liakhovets" <liakh@dol.ru>
To: sisyphus@lists.altlinux.org
X-Mailer: CommuniGate Pro WebUser v5.0.14
Date: Mon, 27 Jun 2011 12:19:07 +0400
Message-ID: <web-948065340@cgp.dol.ru>
In-Reply-To: <BANLkTinejXDDESh=HqEGPgd0Tt+4efNZ9w@mail.gmail.com>
References: <201106271118.05653.serpiph@nikiet.ru>
	<BANLkTik1X0-2AoLSdk2YdjziEvsJN8J+9Q@mail.gmail.com>
	<BANLkTinejXDDESh=HqEGPgd0Tt+4efNZ9w@mail.gmail.com>
MIME-Version: 1.0
Content-Type: text/plain; charset="KOI8-R"
Content-Transfer-Encoding: 8bit
Subject: Re: [sisyphus] =?koi8-r?b?88LP0svBIEZPUlRSQU4t0NLPx9LBzc0=?=
X-BeenThere: sisyphus@lists.altlinux.org
X-Mailman-Version: 2.1.12
Precedence: list
Reply-To: ALT Linux Sisyphus discussions <sisyphus@lists.altlinux.org>
List-Id: ALT Linux Sisyphus discussions <sisyphus.lists.altlinux.org>
List-Unsubscribe: <https://lists.altlinux.org/mailman/options/sisyphus>,
	<mailto:sisyphus-request@lists.altlinux.org?subject=unsubscribe>
List-Archive: <http://lists.altlinux.org/pipermail/sisyphus>
List-Post: <mailto:sisyphus@lists.altlinux.org>
List-Help: <mailto:sisyphus-request@lists.altlinux.org?subject=help>
List-Subscribe: <https://lists.altlinux.org/mailman/listinfo/sisyphus>,
	<mailto:sisyphus-request@lists.altlinux.org?subject=subscribe>
X-List-Received-Date: Mon, 27 Jun 2011 08:19:12 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/web-948065340@cgp.dol.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>
List-Post: <mailto:sisyphus@altlinux.ru>

On Mon, 27 Jun 2011 09:53:32 +0200 vx8400 wrote:
>upd:
>
>27 июня 2011 г. 9:38 vx8400:
>>
>> 'DO I=400' gfortran 4.4.5 съедает, цикл прокручивается 1 раз,
>
>Цикл не прокручивается. 'DO 1 I=400' побочных эффектов не имеет, метка
>'1' перед write игнорируется.
>Ее можно вообще убрать.
>I инициализировано 0, поэтому печатается 0.
>
>btw, DEC Fortran это тоже съедает без предупреждений, если перед 'DO 1
>I=400' поставить, например, I=1
>
>В каком стандарте есть такое 'DO'?

По крайней мере, в Fortran 90 и в Fortran 2008 здесь должны быть
как минимум 2 выражения через запятую. Например, в 2008:

loop-control is [ , ] do-variable = scalar-int-expr , scalar-int-expr [ , scalar-int-expr ]
or [ , ] WHILE ( scalar-logical-expr )
or [ , ] CONCURRENT forall-header

Так что гораздо интереснее, почему такое иногда таки транслируется :)

Андрей Ляховец