Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/char_expr_3.f90 @ 131:84e7813d76e9
gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 07:37:49 +0900 |
parents | 04ced10e8804 |
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