Fix issue #804

Author: Vandenplas, Jeremie

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