This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
Re: [Patch, fortran] PR28923, PR28959 and PR28947 - essential fixes for the 4.2.0 release
- From: Steve Kargl <sgk at troutmask dot apl dot washington dot edu>
- To: Paul Thomas <paulthomas2 at wanadoo dot fr>
- Cc: "'fortran at gcc dot gnu dot org'" <fortran at gcc dot gnu dot org>, patch <gcc-patches at gcc dot gnu dot org>, jvdelisle at gcc dot gnu dot org
- Date: Sun, 10 Sep 2006 09:05:28 -0700
- Subject: Re: [Patch, fortran] PR28923, PR28959 and PR28947 - essential fixes for the 4.2.0 release
- References: <4502B412.1050505@wanadoo.fr> <20060909181824.GA92039@troutmask.apl.washington.edu> <450318F7.7050304@wanadoo.fr>
On Sat, Sep 09, 2006 at 09:41:43PM +0200, Paul Thomas wrote:
>
> >>PPS If people are sufficiently exercised by it for the release, I also
> >>have a patch for PR28890 that could be fielded very quickly.
> >>
> >
> >Send me the patch.
> >
> With the enclosed patch, this works and nothing is broken:
>
> character(*) function charrext (n)
> character(26) :: alpha ="abcdefghijklmnopqrstuvwxyz"
> charrext = alpha (1:n)
> end function charrext
>
> character(26), external :: charrext
> interface
> integer*4 function test(charr, i)
> character(*), external :: charr
> integer :: i
> end function test
> end interface
>
> do j = 1 , 26
> m = test (charrext, j)
> m = ctest (charrext, 27 - j)
> end do
> contains
> integer*4 function ctest(charr, i)
> character(*) :: charr
> integer :: i
> print *, charr(i)
> ctest = 1
> end function ctest
> end
>
> integer*4 function test(charr, i)
> character(*) :: charr
> integer :: i
> print *, charr(i)
> test = 1
>
> end function test
>
> It can be turned into a patch very quickly!
>
Paul, this patch is OK.
--
Steve