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 o
All, consider this simple code:
module foo
contains
subroutine bar
character(len=:), allocatable :: s(:)
call bah(s)
end subroutine bar
end module foo
If one compiles with -fdump-tree-original, one see (with some pruning)
void bar ()
{
integer(kind=8)
Hello,
I have implemented a patch that fixes compile time errors for valid PDT
type-bound procedures. I wrote 4 new tests that address the test-cases in
PR 82943, PR 86148, and PR 86268, since the patch fixes all three of them.
All regression tests pass, including the new ones. This was tested on
