testsuite/gfortran.dg/coarray_collectives_14.f90

9   intrinsic co_reduce
49   call co_reduce(caf[1], valid) ! { dg-error "shall not be coindexed" }
51   call co_reduce(caf, valid) ! OK
52   call co_reduce(caf, dt%valid) ! OK
53   call co_reduce(caf, dprod) ! { dg-error "is not permitted for CO_REDUCE" }
54   call co_reduce(caf, ext) ! { dg-error "must be a PURE function" }
55   call co_reduce(caf, dt%ext) ! { dg-error "must be a PURE function" }
56   call co_reduce(caf, sub) ! { dg-error "must be a PURE function" }
57   call co_reduce(caf, dt%sub) ! { dg-error "must be a PURE function" }
58   call co_reduce(caf, nonpure) ! { dg-error "must be a PURE function" }
59   call co_reduce(caf, dt%nonpure) ! { dg-error "must be a PURE function" }
60   call co_reduce(caf, arg1) ! { dg-error "shall have two arguments" }
61   call co_reduce(caf, dt%arg1) ! { dg-error "shall have two arguments" }
62   call co_reduce(caf, arg3) ! { dg-error "shall have two arguments" }
63   call co_reduce(caf, dt%arg3) ! { dg-error "shall have two arguments" }
64 …call co_reduce(caf, elem) ! { dg-error "ELEMENTAL non-INTRINSIC procedure 'elem' is not allowed as…
65 …call co_reduce(caf, dt%elem) ! { dg-error "ELEMENTAL procedure pointer component 'elem' is not all…
66 …call co_reduce(caf, realo) ! { dg-error "A argument at .1. has type INTEGER.4. but the function pa…
67 …call co_reduce(caf, dt%realo) ! { dg-error "A argument at .1. has type INTEGER.4. but the function…
68 …call co_reduce(caf, int8) ! { dg-error "A argument at .1. has type INTEGER.4. but the function pas…
69 …call co_reduce(caf, dt%int8) ! { dg-error "A argument at .1. has type INTEGER.4. but the function …
70 …call co_reduce(caf, arr) ! { dg-error "scalar nonallocatable nonpointer arguments and return a non…
71 …call co_reduce(caf, dt%arr) ! { dg-error "scalar nonallocatable nonpointer arguments and return a …
72 …call co_reduce(caf, ptr) ! { dg-error "scalar nonallocatable nonpointer arguments and return a non…
73 …call co_reduce(caf, dt%ptr) ! { dg-error "scalar nonallocatable nonpointer arguments and return a …
74 …call co_reduce(caf, alloc) ! { dg-error "scalar nonallocatable nonpointer arguments and return a n…
75 …call co_reduce(caf, dt%alloc) ! { dg-error "scalar nonallocatable nonpointer arguments and return …
76 …call co_reduce(caf, opt) ! { dg-error "shall not have the OPTIONAL attribute for either of the arg…
77 …call co_reduce(caf, dt%opt) ! { dg-error "shall not have the OPTIONAL attribute for either of the …
78 …call co_reduce(caf, val) ! { dg-error "shall have the VALUE attribute either for none or both argu…
79 …call co_reduce(caf, dt%val) ! { dg-error "shall have the VALUE attribute either for none or both a…
80 …call co_reduce(caf, async) ! { dg-error "shall have the ASYNCHRONOUS attribute either for none or …
81 …call co_reduce(caf, dt%async) ! { dg-error "shall have the ASYNCHRONOUS attribute either for none …
82 …call co_reduce(caf, tgt) ! { dg-error "shall have the TARGET attribute either for none or both arg…
83 …call co_reduce(caf, dt%tgt) ! { dg-error "shall have the TARGET attribute either for none or both …
84   call co_reduce(c4, char44) ! OK
85   call co_reduce(c4, dt%char44) ! OK
86 …call co_reduce(c3, char34) ! { dg-error "character length of the A argument at .1. and of the argu…
87 …call co_reduce(c3, dt%char34) ! { dg-error "character length of the A argument at .1. and of the a…
88 …call co_reduce(c4, char34) ! { dg-error "The character length of the A argument at .1. and of the …
89 …call co_reduce(c4, dt%char34) ! { dg-error "The character length of the A argument at .1. and of t…