2 ! { dg-options "-fcoarray=single" }
3 ! { dg-shouldfail "error stop" }
10 character(len=30) :: str
19 if (n /= 0) call abort()
21 sync all (stat=n,errmsg=str)
22 if (n /= 0) call abort()
29 if (n /= 0) call abort()
31 sync memory (errmsg=str,stat=n)
32 if (n /= 0) call abort()
33 sync memory (errmsg=str)
35 sync images (*, stat=n)
36 sync images (1, errmsg=str)
37 sync images ([1],errmsg=str,stat=n)
43 if (num_images() /= 1) call abort()
47 ! { dg-output "ERROR STOP stop" }