[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gcc-fortran
Subject:    Re: fixed bug in intrinsic "index"
From:       Steven Bosscher <s.bosscher () student ! tudelft ! nl>
Date:       2003-12-12 12:51:32
Message-ID: 200312121351.32348.s.bosscher () student ! tudelft ! nl
[Download RAW message or body]

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


[prev in list] [next in list] [prev in thread] [next in thread]