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