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