blob: 038f54456f4c1621f16f1b52f704cce407382563 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
! { 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
|
