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 13:27:46 +0400
Message-ID: <web-948092340@cgp.dol.ru>
In-Reply-To: <201106271311.53033.serpiph@nikiet.ru>
References: <201106271118.05653.serpiph@nikiet.ru>
	<BANLkTik1X0-2AoLSdk2YdjziEvsJN8J+9Q@mail.gmail.com>
	<201106271311.53033.serpiph@nikiet.ru>
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 09:27:52 -0000
Archived-At: <http://lore.altlinux.org/sisyphus/web-948092340@cgp.dol.ru/>
List-Archive: <http://lore.altlinux.org/sisyphus/>
List-Post: <mailto:sisyphus@altlinux.ru>

On Mon, 27 Jun 2011 13:11:52 +0400 Sergei Epiphanov wrote:
>В сообщении от 27 июня 2011 11:38:35 автор vx8400 написал:
>> DO 1 I=1,400 ?
>
>В том-то и дело, что I=400 и всё...
>
>> 'DO I=400' gfortran 4.4.5 съедает, цикл прокручивается 1 раз,
>> write(*,*) I печатает 0.
>
>Есть ещё особенность:
>
>Если этот цикл написать в виде
>        PROGRAM test
>        INTEGER(4) I
>        DO I=400
>        WRITE(*,*)I
>        END DO
>        END PROGRAM
>
>То компилятор ругается на неожиданное появление строки END DO: "Expecting END 
>PROGRAM statement"

Предположительно, компилятор молча игнорирует некорректный "DO I=400",
после чего "END DO" он действительно не ожидает :)

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