Deploying to stdlib-fpm from @ c6b54e1 🚀

Author: jvdp1

example/example_add_log_unit.f90

@@ -0,0 +1,19 @@
+program example_add_log_unit
+  use stdlib_logger, only: global_logger, read_only_error
+
+  character(256) :: iomsg
+  integer :: iostat, unit, stat
+
+  open (newunit=unit, file='error_log.txt', &
+        form='formatted', status='replace', &
+        position='rewind', &
+        action='write', iostat=iostat, iomsg=iomsg)
+
+  call global_logger%add_log_unit(unit, stat)
+
+  select case (stat)
+  case (read_only_error)
+    error stop 'Unable to write to "error_log.txt".'
+  end select
+
+end program example_add_log_unit

example/example_adjustl.f90

@@ -0,0 +1,9 @@
+program example_adjustl
+  use stdlib_string_type
+  implicit none
+  type(string_type) :: string
+
+  string = "                            Whitespace"
+  string = adjustl(string)
+! char(string) == "Whitespace                            "
+end program example_adjustl

example/example_adjustr.f90

@@ -0,0 +1,9 @@
+program example_adjustr
+  use stdlib_string_type
+  implicit none
+  type(string_type) :: string
+
+  string = "Whitespace                            "
+  string = adjustr(string)
+! char(string) == "                            Whitespace"
+end program example_adjustr

example/example_arg_select.f90

@@ -0,0 +1,29 @@
+program example_arg_select
+  use stdlib_selection, only: arg_select
+  implicit none
+
+  real, allocatable :: array(:)
+  integer, allocatable :: indx(:)
+  integer :: kth_smallest
+  integer :: k
+
+  array = [3., 2., 7., 4., 5., 1., 4., -1.]
+  indx = [(k, k=1, size(array))]
+
+  k = 2
+  call arg_select(array, indx, k, kth_smallest)
+  print *, array(kth_smallest) ! print 1.0
+
+  k = 7
+! Due to the previous call to arg_select, we know for sure this is in an
+! index >= 2
+  call arg_select(array, indx, k, kth_smallest, left=2)
+  print *, array(kth_smallest) ! print 5.0
+
+  k = 6
+! Due to the previous two calls to arg_select, we know for sure this is in
+! an index >= 2 and <= 7
+  call arg_select(array, indx, k, kth_smallest, left=2, right=7)
+  print *, array(kth_smallest) ! print 4.0
+
+end program example_arg_select

example/example_ascii_reverse.f90

@@ -0,0 +1,5 @@
+program example_reverse
+  use stdlib_ascii, only: reverse
+  implicit none
+  print'(a)', reverse("Hello, World!") ! returns "!dlroW ,olleH"
+end program example_reverse

example/example_ascii_to_lower.f90

@@ -0,0 +1,5 @@
+program example_to_lower
+  use stdlib_ascii, only: to_lower
+  implicit none
+  print'(a)', to_lower("HELLo!") ! returns "hello!"
+end program example_to_lower

example/example_ascii_to_sentence.f90

@@ -0,0 +1,7 @@
+program example_to_sentence
+  use stdlib_ascii, only: to_sentence
+  implicit none
+  print *, to_sentence("hello!") ! returns "Hello!"
+  print *, to_sentence("'enquoted'") ! returns "'Enquoted'"
+  print *, to_sentence("1st")  ! returns "1st"
+end program example_to_sentence

example/example_ascii_to_title.f90

@@ -0,0 +1,7 @@
+program example_to_title
+  use stdlib_ascii, only: to_title
+  implicit none
+  print *, to_title("hello there!") ! returns "Hello There!"
+  print *, to_title("'enquoted'") ! returns "'Enquoted'"
+  print *, to_title("1st")  ! returns "1st"
+end program example_to_title

example/example_ascii_to_upper.f90

@@ -0,0 +1,5 @@
+program example_to_upper
+  use stdlib_ascii, only: to_upper
+  implicit none
+  print'(a)', to_upper("hello!") ! returns "HELLO!"
+end program example_to_upper

example/example_bitsets_all.f90

@@ -0,0 +1,14 @@
+program example_all
+  use stdlib_bitsets
+  character(*), parameter :: &
+    bits_all = '111111111111111111111111111111111'
+  type(bitset_64) :: set0
+  call set0%from_string(bits_all)
+  if (.not. set0%all()) then
+    error stop "FROM_STRING failed to interpret"// &
+      "BITS_ALL's value properly."
+  else
+    write (*, *) "FROM_STRING transferred BITS_ALL properly"// &
+      " into set0."
+  end if
+end program example_all