Subversion Repositories openrisc

! { 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