blob: 038f54456f4c1621f16f1b52f704cce407382563 [file] [log] [blame]
! { dg-do compile }
! PR fortran/60126 - ICE on pointer rank remapping
! Based on testcase by Michel Valin <mfvalin at gmail dot com>
subroutine simple_bug_demo
implicit none
interface
function offset_ptr_R4(nelements) result (dest)
implicit none
real, pointer, dimension(:) :: dest
integer, intent(IN) :: nelements
end function offset_ptr_R4
end interface
real, dimension(:,:), pointer :: R2D
R2D(-2:2,-3:3) => offset_ptr_R4(100)
end