2 ! { dg-options "-fbounds-check" }
3 ! { dg-shouldfail "Character length mismatch" }
6 ! Test bounds-checking for string length of dummy arguments.
10 CHARACTER(len
=5) :: str
15 CALL test ('abc') ! { dg-warning "Character length of actual argument shorter" }
18 ! { dg-output "shorter than the declared one for dummy argument 'str' \\(3/5\\)" }