This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: fixed bug in intrinsic "index"
- From: Steven Bosscher <s dot bosscher at student dot tudelft dot nl>
- To: "HUANG Chun" <chunhuang73 at hotmail dot com>, fortran at gcc dot gnu dot org,paul at nowt dot org
- Date: Fri, 12 Dec 2003 13:51:32 +0100
- Subject: Re: fixed bug in intrinsic "index"
- References: <Sea1-F92YPkz35ZgR1z00000feb@hotmail.com>
On Wednesday 10 December 2003 10:40, HUANG Chun wrote:
> >Ok. Could you also add a testcase for this.
> >
> >Paul
>
> I find the bug of intrinsic "index" is not modified in the new version.
It is now. Thanks.
> The testcase is following:
>
> ! Program to test the INDEX intrinsic
> program test
> character(len=10) a
> integer w
> if (index("FORTRAN", "R") .ne. 3) call abort
> if (index("FORTRAN", "R", .TRUE.) .ne. 5) call abort
> if (w ("FORTRAN") .ne. 3) call abort
> end
>
> function w(str)
> character(len=8) str
> integer w
> w = index(str, "R")
> end
Commited that, too.
Gr.
Steven