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 call bar((/ s1, s1 /))
17 character(len=*),target :: s(2)
18 character(len=17),pointer :: p(:)
23 ! { dg-output "Unequal character lengths \\(17/10\\)" }