Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/associate_11.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 } ! { dg-options "-fdump-tree-original" } ! ! PR fortran/55134 ! ! Contributed by Valery Weber ! program bug implicit none integer,dimension(1)::i i(:)=1 associate(a =>i) call foo(a) end associate ! write(*,*) i if (i(1) /= 2) STOP 1 contains subroutine foo(v) integer, dimension(*) :: v v(1)=2 end subroutine foo end program bug ! { dg-final { scan-tree-dump-times "foo ..integer.kind=4..0:. . restrict. a.data.;" 1 "original" } }