diff --git a/example/strings/example_ends_with.f90 b/example/strings/example_ends_with.f90 index e7c2c31da..e3c3da079 100644 --- a/example/strings/example_ends_with.f90 +++ b/example/strings/example_ends_with.f90 @@ -1,6 +1,6 @@ program example_ends_with use stdlib_strings, only: ends_with implicit none - print'(a)', ends_with("pattern", "ern") ! T - print'(a)', ends_with("pattern", "pat") ! F + print'(l1)', ends_with("pattern", "ern") ! T + print'(l1)', ends_with("pattern", "pat") ! F end program example_ends_with diff --git a/example/strings/example_starts_with.f90 b/example/strings/example_starts_with.f90 index ab388dbee..16c7b4507 100644 --- a/example/strings/example_starts_with.f90 +++ b/example/strings/example_starts_with.f90 @@ -1,6 +1,6 @@ program example_starts_with use stdlib_strings, only: starts_with implicit none - print'(a)', starts_with("pattern", "pat") ! T - print'(a)', starts_with("pattern", "ern") ! F + print'(l1)', starts_with("pattern", "pat") ! T + print'(l1)', starts_with("pattern", "ern") ! F end program example_starts_with