From fd8e2b007d01d6c44c5c0b9b30b89c99371e8213 Mon Sep 17 00:00:00 2001 From: "Vandenplas, Jeremie" Date: Sun, 12 May 2024 21:30:54 +0200 Subject: [PATCH 1/3] Fix issue #804 --- example/strings/example_starts_with.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/example/strings/example_starts_with.f90 b/example/strings/example_starts_with.f90 index ab388dbee..a709d531a 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'(l)', starts_with("pattern", "pat") ! T + print'(l)', starts_with("pattern", "ern") ! F end program example_starts_with From 8f0a9860acbb3ba8cda261cf35fedb2e5c7fa159 Mon Sep 17 00:00:00 2001 From: "Vandenplas, Jeremie" Date: Sun, 12 May 2024 21:33:21 +0200 Subject: [PATCH 2/3] change format in example_ends_with --- example/strings/example_ends_with.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/example/strings/example_ends_with.f90 b/example/strings/example_ends_with.f90 index e7c2c31da..e4f04cf54 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'(l)', ends_with("pattern", "ern") ! T + print'(l)', ends_with("pattern", "pat") ! F end program example_ends_with From b4745ea24b809c0d09cf8a8932a33586077aa005 Mon Sep 17 00:00:00 2001 From: "Vandenplas, Jeremie" Date: Sun, 12 May 2024 21:37:49 +0200 Subject: [PATCH 3/3] fix format logical --- example/strings/example_ends_with.f90 | 4 ++-- example/strings/example_starts_with.f90 | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/example/strings/example_ends_with.f90 b/example/strings/example_ends_with.f90 index e4f04cf54..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'(l)', ends_with("pattern", "ern") ! T - print'(l)', 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 a709d531a..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'(l)', starts_with("pattern", "pat") ! T - print'(l)', starts_with("pattern", "ern") ! F + print'(l1)', starts_with("pattern", "pat") ! T + print'(l1)', starts_with("pattern", "ern") ! F end program example_starts_with