Hello,

the above bug appears to have been fixed over 2.5 years ago.
It does not trigger with 4.9, 5 and 6 trunk, but does with 4.8.0 and
before.

I recommend to close the bug, while adding a testcase to the trunk's
testsuite.  See e.g. the attached example.

Harald

2016-02-24  Harald Anlauf  <anl...@gmx.de>

        * gfortran.dg/pr60126.f90: New test.


Index: gcc/testsuite/gfortran.dg/pr60126.f90
===================================================================
--- gcc/testsuite/gfortran.dg/pr60126.f90       (revision 0)
+++ gcc/testsuite/gfortran.dg/pr60126.f90       (revision 0)
@@ -0,0 +1,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*4, 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

Reply via email to