1! { dg-do run } 2! { dg-options "-fbounds-check" } 3 4! PR fortran/37746 5! Ensure that too long or matching string lengths don't trigger the runtime 6! error for matching string lengths, if the dummy argument is neither 7! POINTER nor ALLOCATABLE or assumed-shape. 8! Also check that absent OPTIONAL arguments don't trigger the check. 9 10MODULE m 11CONTAINS 12 13 SUBROUTINE test (str, opt) 14 IMPLICIT NONE 15 CHARACTER(len=5) :: str 16 CHARACTER(len=5), OPTIONAL :: opt 17 END SUBROUTINE test 18 19END MODULE m 20 21PROGRAM main 22 USE m 23 IMPLICIT NONE 24 CALL test ('abcde') ! String length matches. 25 CALL test ('abcdef') ! String too long, is ok. 26END PROGRAM main 27