>>> The program:
>>>
>>> use, intrinsic :: iso_fortran_env
>>> implicit none
>>> integer :: errstat=0
>>> if ( this_image() .eq. 1 ) stop "kuku"
>>> sync all ( stat=errstat )
>>> if ( errstat .eq. stat_stopped_image) write (*,*) "mumu"
>>> end
>>>
>>>
>>> My understanding from MFE sec. 19.13.6
>>> and FDIS (10-007r1) sec 8.5.7 par 2 is that
>>> the correct behaviour of this program is:
>>>
>>> 1. Image 1 initiates normal termination
>>> 2. At "sync all (stat=errstat)" errstat
>>> becomes defined with "stat_stopped_image"
>>> on all images, but image 1.
>>> 3. Hence all images, but image 1, must output "mumu<94>.
>
>
>Yes, this is what should happen.
>At least in the case of the Cray compiler, there is already a bug submitted about this issue.
I thought this might be the case, but couldn't remember.
Is the Cray bug tracking system available in open access?
Thanks
Anton
|