Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/value_7.f03 @ 132:d34655255c78
update gcc-8.2
author | mir3636 |
---|---|
date | Thu, 25 Oct 2018 10:21:07 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Test passing character strings by-value. ! PR fortran/32732 program test implicit none character(len=13) :: chr chr = 'Fortran ' call sub1(chr) if(chr /= 'Fortran ') STOP 1 contains subroutine sub1(a) character(len=13), VALUE :: a a = trim(a)//" rules" call sub2(a) end subroutine sub1 subroutine sub2(a) character(len=13), VALUE :: a print *, a if(a /= 'Fortran rules') STOP 2 end subroutine sub2 end program test