Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.

Coarray bug with SYNC ALL

OP1
New Contributor II
99 Views

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
Devorah_H_Intel
Moderator
99 Views

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  

 

Reply