Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/pr60126.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
! { 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