From: "Andrey Liakhovets" <liakh@dol.ru>
To: sisyphus@lists.altlinux.org
Subject: Re: [sisyphus] Сборка FORTRAN-программ
Date: Mon, 27 Jun 2011 13:27:46 +0400
Message-ID: <web-948092340@cgp.dol.ru> (raw)
In-Reply-To: <201106271311.53033.serpiph@nikiet.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" он действительно не ожидает :)
Андрей Ляховец
next prev parent reply other threads:[~2011-06-27 9:27 UTC|newest]
Thread overview: 14+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-06-27 7:18 Sergei Epiphanov
2011-06-27 7:38 ` vx8400
2011-06-27 7:53 ` vx8400
2011-06-27 8:19 ` Andrey Liakhovets
2011-06-27 9:14 ` Sergei Epiphanov
2011-06-27 9:11 ` Sergei Epiphanov
2011-06-27 9:27 ` Andrey Liakhovets [this message]
2011-06-27 10:00 ` Sergei Epiphanov
2011-06-27 10:11 ` Andrey Liakhovets
2011-06-27 8:49 ` vx8400
2011-06-27 9:30 ` Sergei Epiphanov
2011-06-27 10:05 ` Andrey Liakhovets
2011-06-27 9:49 ` Sergey Vlasov
2011-06-27 10:06 ` Sergei Epiphanov
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=web-948092340@cgp.dol.ru \
--to=liakh@dol.ru \
--cc=sisyphus@lists.altlinux.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
ALT Linux Sisyphus discussions
This inbox may be cloned and mirrored by anyone:
git clone --mirror http://lore.altlinux.org/sisyphus/0 sisyphus/git/0.git
# If you have public-inbox 1.1+ installed, you may
# initialize and index your mirror using the following commands:
public-inbox-init -V2 sisyphus sisyphus/ http://lore.altlinux.org/sisyphus \
sisyphus@altlinux.ru sisyphus@altlinux.org sisyphus@lists.altlinux.org sisyphus@lists.altlinux.ru sisyphus@lists.altlinux.com sisyphus@linuxteam.iplabs.ru sisyphus@list.linux-os.ru
public-inbox-index sisyphus
Example config snippet for mirrors.
Newsgroup available over NNTP:
nntp://lore.altlinux.org/org.altlinux.lists.sisyphus
AGPL code for this site: git clone https://public-inbox.org/public-inbox.git