blob: 3969d97ffc9af1da4cebe865d8e200a440a83a24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! { 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
|
