! { dg-do run } | |
! | |
! Test the fix for PR88117. | |
! | |
! Contributed by Gerhard Steinmetz <gscfq@t-online.de> | |
! | |
program p | |
character(:), pointer :: z(:) | |
allocate (z, source = ['abcd', 'bcde']) | |
z = (z) ! gimplifier choked here. | |
if (any (z .ne. ['abcd', 'bcde'])) stop 1 | |
deallocate (z) | |
end |