A wrong column is selected when addressing individual elements of unlimited polymorphic dummy argument

Question

Consider the following Fortran program:

program test_prg
  implicit none
  integer :: i
  integer, allocatable :: arr(:, :)

  arr = reshape([(i, i = 1, 100)], [1