1! { dg-do run } 2! { dg-options "-fcoarray=lib -lcaf_single -fdump-tree-original" } 3! { dg-additional-options "-latomic" { target libatomic_available } } 4! 5! Contributed by Ian Harvey <ian_harvey@bigpond.com> 6! Extended by Andre Vehreschild <vehre@gcc.gnu.org> 7! to test that coarray references in allocate work now 8! PR fortran/67451 9 10 program main 11 implicit none 12 type foo 13 integer :: bar = 99 14 end type 15 class(foo), dimension(:), allocatable :: foobar[:] 16 class(foo), dimension(:), allocatable :: some_local_object 17 allocate(foobar(10)[*]) 18 19 allocate(some_local_object, source=foobar) 20 21 if (.not. allocated(foobar)) STOP 1 22 if (lbound(foobar, 1) /= 1 .OR. ubound(foobar, 1) /= 10) STOP 2 23 if (.not. allocated(some_local_object)) STOP 3 24 if (any(some_local_object(:)%bar /= [99, 99, 99, 99, 99, 99, 99, 99, 99, 99])) STOP 4 25 26 deallocate(some_local_object) 27 deallocate(foobar) 28 end program 29 30! Check that some_local_object is treated as rank-1 array. 31! This failed beforehand, because the coarray attribute of the source=expression 32! was propagated to some_local_object in the allocate. 33! { dg-final { scan-tree-dump-not "some_local_object\._data\.dim\[1\]\.lbound" "original" } } 34