https://gcc.gnu.org/bugzilla/show_bug.cgi?id=93794
Paul Thomas <pault at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
Assignee|unassigned at gcc dot gnu.org |pault at gcc dot gnu.org
--- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> ---
Created attachment 47944
--> https://gcc.gnu.org/bugzilla/attachment.cgi?id=47944&action=edit
Patch for the PR
The test below does the right thing and the code is as expected.
Paul
program p
type t
character(:), pointer :: a
end type
type(t) :: z
character(4), target :: c = 'abcd'
z%a => c
associate (y => z%a)
print *, y
end associate
end
