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