1! { dg-do run } 2! Test passing character strings by-value. 3! PR fortran/32732 4program test 5 implicit none 6 character(len=13) :: chr 7 chr = 'Fortran ' 8 call sub1(chr) 9 if(chr /= 'Fortran ') call abort() 10contains 11 subroutine sub1(a) 12 character(len=13), VALUE :: a 13 a = trim(a)//" rules" 14 call sub2(a) 15 end subroutine sub1 16 subroutine sub2(a) 17 character(len=13), VALUE :: a 18 print *, a 19 if(a /= 'Fortran rules') call abort() 20 end subroutine sub2 21end program test 22 23