1! { dg-do run } 2! { dg-options "-fbounds-check" } 3! { dg-shouldfail "Character length mismatch" } 4 5! PR fortran/37746 6! Test bounds-checking for string length of dummy arguments. 7 8MODULE m 9CONTAINS 10 11 SUBROUTINE test (opt) 12 IMPLICIT NONE 13 CHARACTER(len=5), OPTIONAL :: opt 14 END SUBROUTINE test 15 16END MODULE m 17 18PROGRAM main 19 USE m 20 IMPLICIT NONE 21 CALL test ('') ! 0 length, but not absent argument. 22END PROGRAM main 23 24! { dg-output "shorter than the declared one for dummy argument 'opt' \\(0/5\\)" } 25