Mercurial > hg > CbC > CbC_gcc
diff gcc/testsuite/gfortran.dg/value_7.f03 @ 111:04ced10e8804
gcc 7
author | kono |
---|---|
date | Fri, 27 Oct 2017 22:46:09 +0900 |
parents | |
children | 84e7813d76e9 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/gcc/testsuite/gfortran.dg/value_7.f03 Fri Oct 27 22:46:09 2017 +0900 @@ -0,0 +1,22 @@ +! { 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 ') call abort() +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') call abort() + end subroutine sub2 +end program test +