! { dg-do run } | |
! { dg-options "-fbounds-check" } | |
! { dg-shouldfail "foo" } | |
! | |
! PR 36112 | |
! Check correct bounds-checking behavior for character-array-constructors. | |
call test ("this is long") | |
contains | |
subroutine test(s) | |
character(len=*) :: s | |
character(len=128) :: arr(2) | |
arr = (/ s, "abc" /) | |
end subroutine test | |
end | |
! { dg-output "Different CHARACTER lengths \\(12/3\\) in array constructor" } |