2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Unequal character length" }
6 ! Verify that runtime checks for matching character length
7 ! in pointer assignment work.
9 ! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
13 character(len
=10), target
:: s1
14 character(len
=5), pointer :: p1
15 integer, volatile :: i
20 ! { dg-output "Unequal character lengths \\(5/8\\)" }