Subversion Repositories openrisc

! { dg-do run }

! Test the fix for PR47519, in which the character length was not

! calculated for the SOURCE expressions below and an ICE resulted.

!

! Contributed by Tobias Burnus  

!

program note7_35

   implicit none

   character(:), allocatable :: name

   character(:), allocatable :: src

   integer n

   n = 10

   allocate(name, SOURCE=repeat('x',n))

   if (name .ne. 'xxxxxxxxxx') call abort

   if (len (name) .ne. 10 ) call abort

   deallocate(name)

   src = 'xyxy'

   allocate(name, SOURCE=repeat(src,n))

   if (name(37:40) .ne. 'xyxy') call abort

   if (len (name) .ne. 40 ) call abort

end program note7_35