Subversion Repositories openrisc

! { dg-do run }

! { dg-options "-fbounds-check" }

! { dg-shouldfail "foo" }

!

! PR 36112

! Check correct bounds-checking behaviour for character-array-constructors.

  call test ("short")

contains

  subroutine test(s)

    character(len=*) :: s

    character(len=128) :: arr(3)

    arr = (/ s, "this is long", "this one too" /)

  end subroutine test

end

! { dg-output "Different CHARACTER lengths \\(5/12\\) in array constructor" }