https://gcc.gnu.org/bugzilla/show_bug.cgi?id=125761
Bug ID: 125761
Summary: Wrong code: array section of an unlimited-polymorphic
CHARACTER array
Product: gcc
Version: 17.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
Assignee: unassigned at gcc dot gnu.org
Reporter: jvdelisle at gcc dot gnu.org
Target Milestone: ---
$ cat z2.f90
program p
character(3), target :: arr(4) = ["aaa","bbb","ccc","ddd"]
class(*), pointer :: ptr(:)
ptr => arr
call sub (ptr(2:3))
contains
subroutine sub (x)
class(*) :: x(:)
select type (x)
type is (character(*))
print *, "[", x(1), "][", x(2), "]"
end select
end subroutine
end
$ gfc z2.f90
$ ./a.out
[aab][bbc]
$ flang z2.f90
$ ./a.out
[bbb][ccc]
