2 ! { dg-options "-fcoarray=single" }
4 ! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
5 ! Andre Vehreschild <vehre@gcc.gnu.org>
6 ! Check that PR fortran/69451 is fixed.
15 class(foo), allocatable :: p[:]
16 class(foo), pointer :: r
17 class(*), allocatable, target :: z
29 if (.not. associated(r)) STOP 2
38 class(*), allocatable:: z
39 allocate (z, source=x)