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