Lines Matching defs:stat
15 integer :: i, j(10), stat
39 call co_broadcast(i, source_image=num_images(), stat=stat, errmsg=errstr)
40 if (stat /= 0) call abort()
44 call co_broadcast(j, source_image=num_images(), stat=stat, errmsg=errstr)
45 if (stat /= 0) call abort()
49 call co_broadcast(a, source_image=num_images(), stat=stat, errmsg=errstr)
50 if (stat /= 0) call abort()
54 call co_broadcast(str1, source_image=num_images(), stat=stat, errmsg=errstr)
55 if (stat /= 0) call abort()
59 call co_broadcast(str2, source_image=num_images(), stat=stat, errmsg=errstr)
60 if (stat /= 0) call abort()
64 call co_broadcast(dt, source_image=num_images(), stat=stat, errmsg=errstr)
65 if (stat /= 0) call abort()
84 call co_broadcast(str2(::2), source_image=num_images(), stat=stat, &
86 if (stat /= 0) call abort()
95 call co_broadcast(dt(2::2), source_image=num_images(), stat=stat, &
97 if (stat /= 0) call abort()