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

Another simple coarray bug!

The Release configuration of the coarray code below will work properly with 17 Update 4... but it will fail to produce the correct output with a Debug configuration (whether 32-bit or 64-bit).

PROGRAM COARRAY_BUG
IMPLICIT NONE

INTEGER :: I
INTEGER :: BB(2)
  • IF (THIS_IMAGE()==1) THEN     BB(1) = 1     BB(2) = 2     DO I=2,NUM_IMAGES()         ! The following assignment is buggy when 'Debug' configuration is used.         ! It works as intended for a 'Release' configuration.         BB(1:2) = BB(1:2)     END DO END IF SYNC ALL WRITE(*,'(A,I2,A,2I2)') 'I am image',THIS_IMAGE(),' and BB = ',BB END PROGRAM COARRAY_BUG
  •  

    0 Kudos
    2 Replies
    Highlighted
    Beginner
    5 Views

    Setting "Check Array and String Bounds" to "No" (option /check:[no]bounds) makes the problem disappear with the Debug configuration... but it should not be there in the first place.

    0 Kudos
    Highlighted
    Moderator
    5 Views

    Thank you for the report. I will investigate and let you know the status of this issue.

    Best regards,

    0 Kudos