1! { dg-do compile } 2! { dg-options "-fdump-tree-original -fcoarray=lib" } 3! Check that allocating a coarray adds an implicit sync all. 4 5 implicit none 6 integer, allocatable :: f(:)[:] 7 allocate( f(20)[*], source = 1 ) 8end 9 10! { dg-final { scan-tree-dump-times "_gfortran_caf_sync_all \\(" 1 "original" } } 11