diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2016-02-28 13:39:39 +0000 |
|---|---|---|
| committer | Dominique d'Humieres <dominiq@gcc.gnu.org> | 2016-02-28 14:39:39 +0100 |
| commit | 524bfb1973cc043d0afb4a5e86c16d8309f0801a (patch) | |
| tree | 2cbaa21ea5de01377014acadf0ea30626902ba31 /gcc | |
| parent | bd54250843b21166cb59fec813cd095b93bd3469 (diff) | |
| download | gcc-524bfb1973cc043d0afb4a5e86c16d8309f0801a.zip gcc-524bfb1973cc043d0afb4a5e86c16d8309f0801a.tar.gz gcc-524bfb1973cc043d0afb4a5e86c16d8309f0801a.tar.bz2 | |
re PR fortran/60126 (Internal compiler error with code using pointer reshaping (gfortran 4.8.2))
2016-02-28 Harald Anlauf <anlauf@gmx.de>
PR fortran/60126
* gfortran.dg/pr60126.f90: New test.
From-SVN: r233790
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr60126.f90 | 18 |
2 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index c809e2c..8953173 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-02-28 Harald Anlauf <anlauf@gmx.de> + + PR fortran/60126 + * gfortran.dg/pr60126.f90: New test. + 2016-02-27 Jeff Law <law@redhat.com> Revert diff --git a/gcc/testsuite/gfortran.dg/pr60126.f90 b/gcc/testsuite/gfortran.dg/pr60126.f90 new file mode 100644 index 0000000..038f544 --- /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 <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 |