Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/transpose_intrinsic_func_call_1.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! PR fortran/46978 ! The coor assignment was using the wrong loop bounds if the argument to ! transpose was an intrinsic function call ! ! Original testcase by Martien Huelsen <m.a.hulsen@tue.nl> ! Reduced by Tobias Burnus <burnus@net-b.de> program elastic2 implicit none real, allocatable, dimension(:,:) :: coor real, allocatable, dimension(:) :: a integer :: nno nno = 3 allocate(a(2*nno)) call two() coor = transpose ( reshape ( a, (/2,nno/) ) ) if (any(coor /= 12)) STOP 1 contains subroutine two() allocate(coor(3,2)) coor = 99 a = 12 end subroutine end program elastic2