! { dg-do compile } | |
! | |
! Test the fix for PR93794, where the ASSOCIATE statement ICED on the | |
! deferred character length, pointer component. | |
! | |
! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
! | |
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 |