Lines Matching defs:arg

18 subroutine s2(arg)
20   integer, optional :: arg
21 !ERROR: OPTIONAL argument 'arg' not allowed in a locality-spec
22   do concurrent(i=1:5) reduce(*:arg)
23      arg = arg * 1
27 subroutine s3(arg)
29   real :: arg
31   do concurrent(i=1:5) reduce(max:arg,reduce) reduce(iand:reduce2,reduce3)
32      arg = max(arg, i)
38 subroutine s4(arg)
40   real, intent(in) :: arg
41 !ERROR: INTENT IN argument 'arg' not allowed in a locality-spec
42   do concurrent(i=1:5) reduce(min:arg)
44 !ERROR: 'arg' is an INTENT(IN) dummy argument
45      arg = min(arg, i)
64 subroutine s8(arg)
66   integer, dimension(*) :: arg
67 !ERROR: Assumed size array 'arg' not allowed in a locality-spec
68   do concurrent(i=1:5) reduce(ior:arg)
69      arg(i) = ior(arg(i), i)