mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
19 lines
479 B
Fortran
19 lines
479 B
Fortran
! { 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
|