1! { dg-do run }
2! { dg-options "-fcoarray=single" }
3!
4! Tests the fix for the regression PR83901.
5!
6! Contributed by G Steinmetz  <gscfq@t-online.de>
7!
8program p
9   character(8), allocatable :: x[:]
10   allocate (x[*])
11   x = 'abc'
12   associate (y => x)
13     if (y .ne. 'abc') stop 1
14   end associate
15end
16