Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/char_expr_3.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 } ! Check the fix for PR36795, where the parentheses in the call to foo were ! simplified out ie. foo((xx), xx) simplified to foo (xx, xx) ! ! Conributed by Vivek Rao <vivekrao4@yahoo.com> ! program main implicit none character(len=10), allocatable :: xx(:) character(len=10) :: yy allocate (xx(2)) xx(1) = "" xx(2) = "dog" call foo ((xx),xx) if (trim (xx(1)) .ne. "dog") STOP 1 if (size (xx, 1) .ne. 1) STOP 2 contains subroutine foo (xx,yy) character(len=*), intent(in) :: xx(:) character(len=*), intent(out), allocatable :: yy(:) if (allocated (yy)) deallocate (yy) allocate (yy(1)) yy = xx(2) end subroutine foo end program main