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