gcc/testsuite/gfortran.dg/pr60126.f90

   1 ! { dg-do compile }
   2 ! PR fortran/60126 - ICE on pointer rank remapping
   3 ! Based on testcase by Michel Valin <mfvalin at gmail dot com>
   4
   5 subroutine simple_bug_demo
   6   implicit none
   7   interface
   8      function offset_ptr_R4(nelements) result (dest)
   9        implicit none
  10        real, pointer, dimension(:) :: dest
  11        integer, intent(IN) :: nelements
  12      end function offset_ptr_R4
  13   end interface
  14
  15   real, dimension(:,:), pointer :: R2D
  16
  17   R2D(-2:2,-3:3) => offset_ptr_R4(100)
  18 end