Lines Matching refs:atomic_fetch_or

2 ! This test checks for semantic errors in atomic_fetch_or subroutine calls based on
18   call atomic_fetch_or(scalar_coarray, val, old_val)
19   call atomic_fetch_or(scalar_coarray[1], val, old_val)
20   call atomic_fetch_or(scalar_coarray, val, old_val, status)
21   call atomic_fetch_or(scalar_coarray[1], val, old_val, status)
22   call atomic_fetch_or(atom=scalar_coarray, value=val, old=old_val, stat=status)
23   call atomic_fetch_or(stat=status, old=old_val, value=val, atom=scalar_coarray)
27   !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_or'
28   call atomic_fetch_or(non_scalar_coarray, val, old_val)
30   !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_or'
31   call atomic_fetch_or(non_coarray, val, old_val)
33   !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_or'
34   call atomic_fetch_or(array, val, old_val)
36   !ERROR: 'atom=' argument must be a scalar coarray or coindexed object for intrinsic 'atomic_fetch_or'
37   call atomic_fetch_or(non_scalar_coarray[1], val, old_val)
40   call atomic_fetch_or(default_kind_coarray, val, old_val)
43   call atomic_fetch_or(kind1_coarray, val, old_val)
46   call atomic_fetch_or(non_integer_coarray, val, old_val)
49   call atomic_fetch_or(scalar_coarray, array, old_val)
52   call atomic_fetch_or(scalar_coarray, non_integer, old_val)
55   call atomic_fetch_or(atom=scalar_coarray, value=val, old=not_same_kind_as_atom)
58   call atomic_fetch_or(atom=scalar_coarray, value=val, old=not_same_type_as_atom)
61   call atomic_fetch_or(scalar_coarray, val, 1)
64   call atomic_fetch_or(scalar_coarray, val, array)
67   call atomic_fetch_or(scalar_coarray, val, old_val, non_integer)
70   call atomic_fetch_or(scalar_coarray, val, old_val, status_array)
72   !ERROR: 'stat' argument to 'atomic_fetch_or' may not be a coindexed object
73   call atomic_fetch_or(scalar_coarray, val, old_val, coindexed_status[1])
75   !ERROR: 'stat' argument to 'atomic_fetch_or' may not be a coindexed object
76   call atomic_fetch_or(scalar_coarray[1], val_coarray[1], old_val_coarray[1], coindexed_status[1])
80   call atomic_fetch_or(scalar_coarray, val, old_val, 1)
83   call atomic_fetch_or()
86   call atomic_fetch_or(value=val, old=old_val, stat=status)
89   call atomic_fetch_or(scalar_coarray)
92   call atomic_fetch_or(atom=scalar_coarray, old=old_val, stat=status)
95   call atomic_fetch_or(scalar_coarray, val)
98   call atomic_fetch_or(atom=scalar_coarray, value=val)
100   !ERROR: too many actual arguments for intrinsic 'atomic_fetch_or'
101   call atomic_fetch_or(scalar_coarray, val, old_val, status, extra_arg)
103   !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_or'
104   call atomic_fetch_or(atom=scalar_coarray, atom=repeated_atom, value=val, old=old_val, stat=status)
106   !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_or'
107   call atomic_fetch_or(atom=scalar_coarray, value=val, value=repeated_val, old=old_val, stat=status)
109   !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_or'
110   call atomic_fetch_or(atom=scalar_coarray, value=val, old=old_val, old=repeated_old, stat=status)
112   !ERROR: repeated keyword argument to intrinsic 'atomic_fetch_or'
113   call atomic_fetch_or(atom=scalar_coarray, value=val, old=old_val, stat=status, stat=repeated_status)
115   !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_or'
116   call atomic_fetch_or(atomic=scalar_coarray, value=val, old=old_val, stat=status)
118   !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_or'
119   call atomic_fetch_or(atom=scalar_coarray, values=val, old=old_val, stat=status)
121   !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_or'
122   call atomic_fetch_or(atom=scalar_coarray, value=val, oldvalue=old_val, stat=status)
124   !ERROR: unknown keyword argument to intrinsic 'atomic_fetch_or'
125   call atomic_fetch_or(atom=scalar_coarray, value=val, old=old_val, status=status)
127   !ERROR: keyword argument to intrinsic 'atomic_fetch_or' was supplied positionally by an earlier actual argument
128   call atomic_fetch_or(scalar_coarray, val, old_val, atom=repeated_atom)
130   !ERROR: keyword argument to intrinsic 'atomic_fetch_or' was supplied positionally by an earlier actual argument
131   call atomic_fetch_or(scalar_coarray, val, old_val, value=repeated_val)
133   !ERROR: keyword argument to intrinsic 'atomic_fetch_or' was supplied positionally by an earlier actual argument
134   call atomic_fetch_or(scalar_coarray, val, old_val, status, stat=repeated_status)