8 character(len
=30) :: str
26 sync
all (stat
=n
,errmsg
=str
)
35 sync
memory (errmsg
=str
)
42 sync
memory (errmsg
=str
,stat
=n
)
50 if (this_image() == 1) then
52 sync
images (1, errmsg
=str
)
57 sync
images (*, stat
=n
)
61 sync
images (*,errmsg
=str
,stat
=n
)