[Bug fortran/77652] New: Invalid rank error in ASSOCIATED when rank is remapped

[pault at gcc dot gnu.org]

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

            Bug ID: 77652
           Summary: Invalid rank error in ASSOCIATED when rank is remapped
           Product: gcc
           Version: 7.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: pault at gcc dot gnu.org
  Target Milestone: ---

real, dimension(100), target  :: array
    real, dimension(:,:), pointer :: matrix
    matrix(1:20,1:5) => array
    write( *, '(a,l)' )   'Associated? ', associated(matrix,array)
end

     write( *, '(a,l)' )   'Associated? ', associated(matrix,array)
                                                            1
Error: ‘pointer’ argument of ‘associated’ intrinsic at (1) must be of rank 2

See https://groups.google.com/forum/#!topic/comp.lang.fortran/BQfpeDZxX3Q

This appears to be erroneous and, indeed, perverse :-)

Paul