On Sat, Feb 10, 2024 at 06:00:42PM -0800, Steve Kargl wrote:
> 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
On Sun, Feb 11, 2024 at 11:56:52AM +0100, Mikael Morin wrote:
> Hello,
>
> Le 11/02/2024 à 03:00, Steve Kargl a écrit :
> > All, consider this simple code:
> >
> >module foo
> > contains
> >subroutine bar
> > character(len=:), allocatable :: s(:)
> > call bah(s)
Hello,
Le 11/02/2024 à 03:00, Steve Kargl a écrit :
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 se
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)
