Passing a shared variable to a non-intrinsic procedure may result in the value of the shared variable being copied into temporary storage before the procedure reference, and back out of the temporary storage into the actual argument storage after the procedure reference. Use of intervening temporary storage can occur only when the following three conditions hold regarding an actual argument:
The actual argument is one of the following arguments:
A shared variable
A subobject of a shared variable
An object associated with a shared variable
An object associated with a subobject of a shared variable
The actual argument is one of the following arguments:
An array section
An array section with a vector subscript
An assumed-shape array
A pointer array
The associated dummy argument for the actual argument is an explicit-shape array or an assumed-size array.