https://gcc.gnu.org/bugzilla/show_bug.cgi?id=113671
kargl at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Ever confirmed|0 |1
CC| |kargl at gcc dot gnu.org
Last reconfirmed| |2024-01-30
Status|UNCONFIRMED |NEW
Priority|P3 |P4
--- Comment #1 from kargl at gcc dot gnu.org ---
Reduced testcase.
program arrays10
implicit none
character(:), allocatable :: b(:)
allocate(character(len=1) :: b(1)) ! <- remove a bunch of uninitialized
! <-1 -Wall warnings.
b = [ character(5) :: "one", "two", "three"]
call test03(b(size(b):1:-1))
contains
subroutine test03(a)
character(*), intent(in) :: a(*)
print *, "testing: ", rank(a), size(a(:3)), len(a(1))
end subroutine test03
end program arrays10
