1! { dg-do run }
2! { dg-options "-fbounds-check" }
3! { dg-shouldfail "Unequal character length" }
4
5! PR fortran/31822
6! Verify that runtime checks for matching character length
7! in pointer assignment work.
8
9! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
10
11program ptr
12  implicit none
13  character(len=10), target :: s1
14  character(len=5), pointer :: p1
15  integer, volatile :: i
16  i = 8
17  p1 => s1(1:i)
18end program ptr
19
20! { dg-output "Unequal character lengths \\(5/8\\)" }
21