[Bug fortran/69296] New: Problem with associate and vector subscript

[mrestelli at gmail dot com]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=69296

            Bug ID: 69296
           Summary: Problem with associate and vector subscript
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: mrestelli at gmail dot com
  Target Milestone: ---

The attached code, when compiled with gfortran, prints

shape: 2

and then crashes printing "ai". The same code compiled with ifort
shows what I thing is the correct behaviour, namely

$ ./test
 shape:            2           3
 ai =            1         -10           3         -30           5         -50

Notice that gfortran considers "ai" to have rank 1, while ifort
correctly detects the rank 2.


program p
 implicit none

 integer :: j, a(2,6), i(3,2)

  a(1,:) = (/ (     j , j=1,6) /)
  a(2,:) = (/ ( -10*j , j=1,6) /)

  i(:,1) = (/ 1 , 3 , 5 /)
  i(:,2) = (/ 4 , 5 , 6 /)

  associate( ai => a(:,i(:,1)) )
  write(*,*) "shape: ", shape(ai)
  write(*,*) "ai = ", ai
  end associate

end program p