2 ! { dg-options "-fcoarray=single" }
3 ! { dg-shouldfail "error stop" }
10 character(len
=30) :: str
21 sync
all (stat
=n
,errmsg
=str
)
31 sync
memory (errmsg
=str
,stat
=n
)
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) STOP 5
47 ! { dg-output "ERROR STOP stop" }