From 524bfb1973cc043d0afb4a5e86c16d8309f0801a Mon Sep 17 00:00:00 2001 From: Harald Anlauf Date: Sun, 28 Feb 2016 13:39:39 +0000 Subject: [PATCH] re PR fortran/60126 (Internal compiler error with code using pointer reshaping (gfortran 4.8.2)) 2016-02-28 Harald Anlauf PR fortran/60126 * gfortran.dg/pr60126.f90: New test. From-SVN: r233790 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/pr60126.f90 | 18 ++++++++++++++++++ 2 files changed, 23 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/pr60126.f90 diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c809e2ca8eb3..89531733c8d7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-02-28 Harald Anlauf + + PR fortran/60126 + * gfortran.dg/pr60126.f90: New test. + 2016-02-27 Jeff Law Revert diff --git a/gcc/testsuite/gfortran.dg/pr60126.f90 b/gcc/testsuite/gfortran.dg/pr60126.f90 new file mode 100644 index 000000000000..038f54456f4c --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr60126.f90 @@ -0,0 +1,18 @@ +! { dg-do compile } +! PR fortran/60126 - ICE on pointer rank remapping +! Based on testcase by Michel Valin + +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 -- 2.47.2