Array Initialization Error when mixing different integer types.

[Michael_B_10]

Code:

PROGRAM main

  USE ISO_C_BINDING
 
  IMPLICIT NONE
  INTEGER, PARAMETER :: DIM0 = 7
  INTEGER, PARAMETER :: DIM1 = 4
  INTEGER, PARAMETER :: num_flags = 4
  INTEGER(kind=8), PARAMETER :: DIM0a = 7
  INTEGER(kind=8), PARAMETER :: DIM1a = 4
 
  INTEGER, DIMENSION(1:3) :: dim_qf_data =(/DIM0,4,num_flags/)
  INTEGER(kind=8), DIMENSION(1:2) :: dims = (/DIM0a,DIM1a/) ! #1
  INTEGER(kind=8), DIMENSION(1:2) :: dims = (/DIM0,DIM1/) ! #2

  print*,dim_qf_data
   print*,dims
END PROGRAM main

When I use #1 it prints correctly:

7,4,4

7,4

But when I use #2 it prints dim_qf_data's second array value wrong:

7,0,4

7,4

For Intel 14.0 it was correct for both. It also works correctly on Mac and Linux with Intel 15.0 (and 14.0).

Computer system env. attached.
 

[Steven_L_Intel1]

That's just weird.  Thanks, we'll look into it.

[Steven_L_Intel1]

Escalated as issue DPD200366575. I will let you know of any progress. Thanks again.

[Steven_L_Intel1]

This has been fixed in our sources - I have asked that the fix be included in 15.0 Update 3 - it probably will.

[Steven_L_Intel1]

The fix is now scheduled for Update 3 (May.)

[Michael_B_10]

Thanks for fixing this so fast and keeping me updated.