! { dg-do compile }
!
! PR fortran/104570
! The following used to cause an ICE because the string length
! evaluation of the (y) expression was not prepared to handle
! a non-scalar expression.

program p
   character(:), allocatable :: x(:)
   x = ['abc']
   call s
contains
   subroutine s
      associate (y => x)
         associate (z => (y))
            print *, z
         end associate
      end associate
   end
end