This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
Re: bug in namelist read
- To: "Harper, Christie" <harper at huntsville dot sparta dot com>
- Subject: Re: bug in namelist read
- From: Toon Moene <toon at moene dot indiv dot nluug dot nl>
- Date: Fri, 01 Dec 2000 21:15:51 +0100
- CC: "'gcc-bugs at gcc dot gnu dot org'" <gcc-bugs at gcc dot gnu dot org>
- Organization: Moene Computational Physics, Maartensdijk, The Netherlands
- References: <93BE5BB31EF2D3118C4300104B22216750F972@artemis.huntsville.sparta.com>
Harper, Christie wrote:
Yep, this is definitely a bug; I'll add it do our bug database and make
a test suite entry out of it once I know how to add a test suite program
that reads an input file.
Thanks for your bug report.
> this program illustrates the point
>
> program simerr
> logical tf(5)
> namelist /list/ tf,tt,ff,xyz
> open (unit=1,status='old',name='simerr.inp')
> do i=1,5
> tf(i)=.false.
> enddo
> read(1,list)
> write(6,list)
> stop
> end
>
> input file:
>
> &list
> tf=.t.,.f.,.t.,
> ff=33.,
> tt=23.0,
> xyz=-1234.55,
> &end
>
> you would expect the output
>
> tf=.t.,.f.,.t.,.f.,.f.,
> ff=33.,
> tt=23.,
> xyz=-1234.55
>
> what you get is:
>
> TF = T F T F T,
> TT = 0.,
> FF = 0.,
> XYZ = -1234.55005/
>
> christie harper
> SPARTA Inc.
> (256) 837-5282 x 1216
--
Toon Moene - mailto:toon@moene.indiv.nluug.nl - phoneto: +31 346 214290
Saturnushof 14, 3738 XG Maartensdijk, The Netherlands
GNU Fortran 77: http://gcc.gnu.org/onlinedocs/g77_news.html
GNU Fortran 95: http://g95.sourceforge.net/ (under construction)