2 ! { dg-options "-fbounds-check" }
5 ! Gave before a bogus out of bounds.
6 ! Contributed by Joost VandeVondele.
9 INTEGER, PARAMETER :: default_string_length=80
15 FUNCTION F1(a,b,c,d) RESULT(RES)
16 CHARACTER(LEN=default_string_length), OPTIONAL :: a,b,c,d
27 CHARACTER(LEN=default_string_length) :: a,b
40 ! { dg-final { cleanup-modules "m1 m2 m3" } }