2 ! { dg-shouldfail "error stop" }
9 character(len=30) :: str
18 if (n /= 0) call abort()
20 sync all (stat=n,errmsg=str)
21 if (n /= 0) call abort()
28 if (n /= 0) call abort()
30 sync memory (errmsg=str,stat=n)
31 if (n /= 0) call abort()
32 sync memory (errmsg=str)
34 sync images (*, stat=n)
35 sync images (1, errmsg=str)
36 sync images ([1],errmsg=str,stat=n)
42 if (num_images() /= 1) call abort()
46 ! { dg-output "ERROR STOP stop" }