On Dec 1, 2014, at 9:13 AM, Anton Shterenlikht <[log in to unmask]> wrote:
>>>> 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?
No, unfortunately not. I added your example to the bug to make sure it passes when the bug is fixed.
Cheers,
Bill
>
> Thanks
>
> Anton
Bill Long [log in to unmask]
Fortran Technical Suport & voice: 651-605-9024
Bioinformatics Software Development fax: 651-605-9142
Cray Inc./ Cray Plaza, Suite 210/ 380 Jackson St./ St. Paul, MN 55101
|