1! { dg-do run }
2! { dg-options "-fbounds-check" }
3! { dg-shouldfail "foo" }
4!
5! PR 36112
6! Check correct bounds-checking behavior for character-array-constructors.
7
8  call test ("short", "this is long")
9contains
10  subroutine test(r, s)
11    character(len=*) :: r, s
12    character(len=128) :: arr(2)
13    arr = (/ r, s /)
14  end subroutine test
15end
16! { dg-output "Different CHARACTER lengths \\(5/12\\) in array constructor" }
17