Lines Matching refs:atomic_fetch_add
2 ! This test checks for semantic errors in atomic_fetch_add subroutine calls based on
19 call atomic_fetch_add(scalar_coarray, val, old_val)
20 call atomic_fetch_add(scalar_coarray[1], val, old_val)
21 call atomic_fetch_add(scalar_coarray, val, old_val, status)
22 call atomic_fetch_add(scalar_coarray[1], val, old_val, status)
23 call atomic_fetch_add(atom=scalar_coarray, value=val, old=old_val, stat=status)
24 call atomic_fetch_add(stat=status, old=old_val, value=val, atom=scalar_coarray)
29 call atomic_fetch_add(atomic_logical, val, old_logical)
32 call atomic_fetch_add(scalar_coarray, val, old_logical)
34 !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_add'
35 call atomic_fetch_add(non_scalar_coarray, val, old_val)
37 !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_add'
38 call atomic_fetch_add(non_coarray, val, old_val)
40 !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_add'
41 call atomic_fetch_add(array, val, old_val)
43 !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_add'
44 call atomic_fetch_add(non_scalar_coarray[1], val, old_val)
47 call atomic_fetch_add(default_kind_coarray, val, old_val)
50 call atomic_fetch_add(kind1_coarray, val, old_val)
53 call atomic_fetch_add(non_integer_coarray, val, old_val)
56 call atomic_fetch_add(scalar_coarray, array, old_val)
59 call atomic_fetch_add(scalar_coarray, non_integer, old_val)
62 call atomic_fetch_add(atom=scalar_coarray, value=val, old=not_same_kind_as_atom)
65 call atomic_fetch_add(atom=scalar_coarray, value=val, old=not_same_type_as_atom)
68 call atomic_fetch_add(scalar_coarray, val, 1)
71 call atomic_fetch_add(scalar_coarray, val, array)
74 call atomic_fetch_add(scalar_coarray, val, old_val, non_integer)
77 call atomic_fetch_add(scalar_coarray, val, old_val, status_array)
79 !ERROR: 'stat' argument to 'atomic_fetch_add' may not be a coindexed object
80 call atomic_fetch_add(scalar_coarray, val, old_val, coindexed_status[1])
84 call atomic_fetch_add(scalar_coarray, val, old_val, 1)
87 call atomic_fetch_add()
90 call atomic_fetch_add(value=val, old=old_val, stat=status)
93 call atomic_fetch_add(scalar_coarray)
96 call atomic_fetch_add(atom=scalar_coarray, old=old_val, stat=status)
99 call atomic_fetch_add(scalar_coarray, val)
102 call atomic_fetch_add(atom=scalar_coarray, value=val)
104 !ERROR: too many actual arguments for intrinsic 'atomic_fetch_add'
105 call atomic_fetch_add(scalar_coarray, val, old_val, status, extra_arg)
107 !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_add'
108 call atomic_fetch_add(atom=scalar_coarray, atom=repeated_atom, value=val, old=old_val, stat=status)
110 !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_add'
111 call atomic_fetch_add(atom=scalar_coarray, value=val, value=repeated_val, old=old_val, stat=status)
113 !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_add'
114 call atomic_fetch_add(atom=scalar_coarray, value=val, old=old_val, old=repeated_old, stat=status)
116 !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_add'
117 call atomic_fetch_add(atom=scalar_coarray, value=val, old=old_val, stat=status, stat=repeated_status)
119 !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_add'
120 call atomic_fetch_add(atomic=scalar_coarray, value=val, old=old_val, stat=status)
122 !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_add'
123 call atomic_fetch_add(atom=scalar_coarray, values=val, old=old_val, stat=status)
125 !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_add'
126 call atomic_fetch_add(atom=scalar_coarray, value=val, oldvalue=old_val, stat=status)
128 !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_add'
129 call atomic_fetch_add(atom=scalar_coarray, value=val, old=old_val, status=status)
131 !ERROR: keyword argument to intrinsic 'atomic_fetch_add' was supplied positionally by an earlier actual argument
132 call atomic_fetch_add(scalar_coarray, val, old_val, atom=repeated_atom)
134 !ERROR: keyword argument to intrinsic 'atomic_fetch_add' was supplied positionally by an earlier actual argument
135 call atomic_fetch_add(scalar_coarray, val, old_val, value=repeated_val)
137 !ERROR: keyword argument to intrinsic 'atomic_fetch_add' was supplied positionally by an earlier actual argument
138 call atomic_fetch_add(scalar_coarray, val, old_val, status, stat=repeated_status)