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
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)
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