2 ! PR fortran/60126 - ICE on pointer rank remapping
3 ! Based on testcase by Michel Valin <mfvalin at gmail dot com>
5 subroutine simple_bug_demo
8 function offset_ptr_R4(nelements
) result (dest
)
10 real, pointer, dimension(:) :: dest
11 integer, intent(IN
) :: nelements
12 end function offset_ptr_R4
15 real, dimension(:,:), pointer :: R2D
17 R2D(-2:2,-3:3) => offset_ptr_R4(100)