Re: Need a hint or more likely help

[Steve Kargl <sgk@troutmask.apl.washington.edu>]

On Sat, Feb 10, 2024 at 06:00:42PM -0800, Steve Kargl wrote:
> 
> The problem here is that sym->ts.u.cl->length == NULL.  If I change
> the conditional to 
> 
>   if (sym->ts.type == BT_CHARACTER
>       && sym->ts.u.cl->length
>       && !INTEGER_CST_P (sym->ts.u.cl->backend_decl))
> 
> then the option -fdump-tree-original produces
> 
>   void bar ()
>   {
>     integer(kind=8) .s;
>     struct array01_character(kind=1) s;
> 
>     try
>       {
>         s.data = 0B;
>         s.dtype = {.elem_len=(unsigned long) .s, .version=0, .rank=1, .type=6};
>         bah ((character(kind=1)[0:][1:.s] * restrict) s.data, .s);
>       }
> 

Well, that leads to a regression.  The goes removes references
to an undefined variable, and gives a regression?  I tried to
artificial set length to 0 (and -1 but -1 is 0) and that leads
to even more regressions??

-- 
Steve