Community
cancel
Showing results for 
Search instead for 
Did you mean: 
Novice
18 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
    Novice
    18 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
    Moderator
    18 Views

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

    Best regards,

    0 Kudos