gcc/testsuite/gfortran.dg/char_pointer_assign_4.f90

   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
  11 program 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)
  18 end program ptr
  19
  20 ! { dg-output "Unequal character lengths \\(5/8\\)" }