! { 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