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