This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

Re: [Patch, fortran] PR28923, PR28959 and PR28947 - essential fixes for the 4.2.0 release


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


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]