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