1! { dg-do compile } 2! 3! PR 36112 4! Check correct bounds-checking behavior for character-array-constructors. 5! No need for -fbounds-check, enabled unconditionally. 6 7 character(len=5) :: s = "hello" 8 character(len=128) :: arr(3) 9 arr = (/ "abc", "foo", s /) ! { dg-error "Different CHARACTER lengths" } 10end 11