Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Highlighted
Beginner

Coarray bug with SYNC ALL

The code below works only if the stopped image is 1. In that case, the other images executing SYNC ALL get a non-zero error code and an appropriate message indicating that one of the images has stopped.

If the stopped image is 2 (or greater), then the code hangs forever.

PROGRAM MAIN
IMPLICIT NONE
INTEGER :: CODE
CHARACTER(LEN=100) :: MSG
IF (THIS_IMAGE()==1) STOP  ! This works.
!IF (THIS_IMAGE()==2) STOP  ! This will cause the code to hang forever.
SYNC ALL (STAT=CODE,ERRMSG=MSG)
WRITE(*,*) 'I am image ',THIS_IMAGE(),', CODE = ',CODE,' and  MSG = ',TRIM(MSG)
END PROGRAM MAIN

 

0 Kudos
1 Reply
Highlighted
Moderator

Thank you for your report!

Thank you for your report! This issue is better to be reported via our Online Service Center at https://supporttickets.intel.com/  
Instructions on how to file a ticket are available here: 
https://software.intel.com/en-us/articles/how-to-create-a-support-request-at-online-service-center  

 

Devorah - Intel® Developer Support
0 Kudos