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