Intel® Fortran Compiler
Build applications that can scale for the future with optimized code designed for Intel® Xeon® and compatible processors.
Announcements
Welcome to the Intel Community. If you get an answer you like, please mark it as an Accepted Solution to help others. Thank you!

Coarray bug with SYNC ALL

OP1
New Contributor I
67 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
67 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