1! { dg-do run }
2! { dg-options "-fcoarray=single" }
3! { dg-shouldfail "error stop" }
4!
5! Coarray support
6! PR fortran/18918
7
8implicit none
9integer :: n
10character(len=30) :: str
11critical
12end critical
13myCr: critical
14end critical myCr
15  sync all
16  sync all ( )
17  n = 5
18  sync all (stat=n)
19  if (n /= 0) call abort()
20  n = 5
21  sync all (stat=n,errmsg=str)
22  if (n /= 0) call abort()
23  sync all (errmsg=str)
24
25  sync memory
26  sync memory ( )
27  n = 5
28  sync memory (stat=n)
29  if (n /= 0) call abort()
30  n = 5
31  sync memory (errmsg=str,stat=n)
32  if (n /= 0) call abort()
33  sync memory (errmsg=str)
34
35sync images (*, stat=n)
36sync images (1, errmsg=str)
37sync images ([1],errmsg=str,stat=n)
38
39sync images (*)
40sync images (1)
41sync images ([1])
42
43if (num_images() /= 1) call abort()
44error stop 'stop'
45end
46
47! { dg-output "ERROR STOP stop" }
48