2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Character length mismatch" }
6 ! Test bounds-checking for string length of dummy arguments.
14 CHARACTER(len
=5), POINTER :: str
20 CHARACTER(len
=n
), POINTER :: str
29 CALL test2 (7) ! Too long.
32 ! { dg-output "does not match the declared one for dummy argument 'str' \\(7/5\\)" }