1! { dg-do run }
2!
3! Test the fix for PR88117.
4!
5! Contributed by Gerhard Steinmetz  <gscfq@t-online.de>
6!
7program p
8   character(:), pointer :: z(:)
9   allocate (z, source  = ['abcd', 'bcde'])
10   z = (z) ! gimplifier choked here.
11   if (any (z .ne. ['abcd', 'bcde'])) stop 1
12   deallocate (z)
13end
14