Re: [gfortran,patch] Fix wrong-code for ASSOCIATED

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

On Sun, Jun 18, 2006 at 07:06:00PM +0200, FX Coudert wrote:
> >I noticed that in the ELSE portion of outer ithe IF statement, there
> >is an "if (ss1 == gfc_ss_terminator)" block (see line 2858).  Do
> >we need to insert the same two lines above the "tmp = " (line 2866)?
> 
> Right you are. Applying the same fix (see patch at the end of the mail) 
> allows the following testcase to work:
> 
>   integer :: i
>   integer,target :: u
>   logical :: l
>   type dt
>     integer, pointer :: a => NULL()
>   end type dt
>   type(dt) :: obj(1)
> 
>   i = 2
>   l = associated(obj(i)%a)
>   print *, l
>   l = associated(obj(i)%a,u)
>   print *, l
>   end
> 
> I intend to commit the whole patch in 24 hours, unless someone objects.
> 

The new patch is ok to commit.

-- 
Steve