Bill,
Thanks very much for your response.
Is it fair to correct to think the number of images is going to be 1
or greater in a coarray program and the following code variant with
explicit reference to image 1 is standard-conforming and the program
built using a conforming processor should execute?
--- begin snippet ---
use, intrinsic :: iso_fortran_env, only : atomic_int_kind
type :: t
integer(kind=atomic_int_kind) :: i
end type
integer(kind=atomic_int_kind) :: vali
type(t), save :: foo[*]
call atomic_define( atom=foo[1]%i, value=42 )
sync memory
call atomic_ref( value=vali, atom=foo[1]%i )
end
--- end snippet ---
Because this too compiles ok but encounters a run-time exception.
Thanks and regards,
Vipul Parekh
|