fix demo to pass all tests

jvdp1 · jvdp1 · commit 729b40319324 · 2022-06-28T00:38:06.000+02:00
diff --git a/test/example/CMakeLists.txt b/test/example/CMakeLists.txt
@@ -1,9 +1,9 @@
 macro(ADD_DEMO name)
     add_executable(demo_${name} demo_${name}.f90)
     target_link_libraries(demo_${name} "${PROJECT_NAME}")
-#    add_test(NAME ${name}
-#             COMMAND $<TARGET_FILE:demo_${name}> ${CMAKE_CURRENT_BINARY_DIR}
-#             WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR})
+    add_test(NAME ${name}
+             COMMAND $<TARGET_FILE:demo_${name}> ${CMAKE_CURRENT_BINARY_DIR}
+             WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR})
 endmacro(ADD_DEMO)
 
 add_subdirectory(array)
diff --git a/test/example/error/CMakeLists.txt b/test/example/error/CMakeLists.txt
@@ -1,6 +1,11 @@
 ADD_DEMO(check1)
+set_tests_properties(check1 PROPERTIES WILL_FAIL true)
 ADD_DEMO(check2)
+set_tests_properties(check2 PROPERTIES WILL_FAIL true)
 ADD_DEMO(check3)
 ADD_DEMO(check4)
+set_tests_properties(check4 PROPERTIES SKIP_RETURN_CODE 77)
 ADD_DEMO(error_stop1)
+set_tests_properties(error_stop1 PROPERTIES WILL_FAIL true)
 ADD_DEMO(error_stop2)
+set_tests_properties(error_stop2 PROPERTIES WILL_FAIL true)
diff --git a/test/example/hash_procedures/demo_universal_mult_hash_64.f90 b/test/example/hash_procedures/demo_universal_mult_hash_64.f90
@@ -4,7 +4,7 @@ program demo_universal_mult_hash_64
     use iso_fortran_env, only: int64
     implicit none
     integer, allocatable :: array1(:)
-    integer(int64) :: hash, i, seed, source
+    integer(int64) :: hash, seed, source
     seed = 0
     allocate (array1(0:2**6 - 1))
     array1 = 0
diff --git a/test/example/hashmaps/demo_hashmaps_free_other.f90 b/test/example/hashmaps/demo_hashmaps_free_other.f90
@@ -7,7 +7,7 @@ program demo_free_other
         integer(int8) :: value(15)
     end type dummy_type
     type(dummy_type) :: dummy_val
-    type(other_type), allocatable :: other_in, other_out
+    type(other_type) :: other_in, other_out
     integer(int8) :: i
     do i = 1, 15
         dummy_val%value(i) = i
diff --git a/test/example/hashmaps/demo_hashmaps_get_other_data.f90 b/test/example/hashmaps/demo_hashmaps_get_other_data.f90
@@ -2,7 +2,7 @@ program demo_get_other_data
     use stdlib_kinds, only: int8
     use stdlib_hashmaps, only: chaining_hashmap_type, int_index
     use stdlib_hashmap_wrappers, only: fnv_1_hasher, key_type, other_type, set, get
-    logical                     :: conflict, exists
+    logical                     :: conflict
     type(key_type)              :: key
     type(other_type)            :: other
     type(chaining_hashmap_type) :: map
diff --git a/test/example/hashmaps/demo_hashmaps_probes.f90 b/test/example/hashmaps/demo_hashmaps_probes.f90
@@ -1,9 +1,9 @@
 program demo_probes
-    use stdlib_hashmaps, only: chaining_hashmap_type, int_index
+    use stdlib_hashmaps, only: chaining_hashmap_type
     use stdlib_hashmap_wrappers, only: fnv_1_hasher
     implicit none
     type(chaining_hashmap_type) :: map
-    real :: nprobes
+    integer :: nprobes
     call map%init(fnv_1_hasher)
     nprobes = map%map_probes()
     print *, "Initial probes =  ", nprobes
diff --git a/test/example/io/CMakeLists.txt b/test/example/io/CMakeLists.txt
@@ -1,5 +1,5 @@
 ADD_DEMO(fmt_constants)
-ADD_DEMO(getline)
+#ADD_DEMO(getline)
 ADD_DEMO(loadnpy)
 ADD_DEMO(loadtxt)
 ADD_DEMO(open)
diff --git a/test/example/linalg/demo_diag2.f90 b/test/example/linalg/demo_diag2.f90
@@ -3,7 +3,6 @@ program demo_diag2
     implicit none
     real, allocatable :: v(:)
     real, allocatable :: A(:, :)
-    integer :: i
     v = [1, 2, 3, 4, 5]
     A = diag(v) ! creates a 5 by 5 matrix with elements of v on the diagonal
 end program demo_diag2
diff --git a/test/example/linalg/demo_diag3.f90 b/test/example/linalg/demo_diag3.f90
@@ -4,7 +4,6 @@ program demo_diag3
     integer, parameter :: n = 10
     real :: c(n), ul(n - 1)
     real :: A(n, n)
-    integer :: i
     c = 2
     ul = -1
     A = diag(ul, -1) + diag(c) + diag(ul, 1) ! Gil Strang's favorite matrix
diff --git a/test/example/linalg/demo_diag4.f90 b/test/example/linalg/demo_diag4.f90
@@ -4,7 +4,6 @@ program demo_diag4
     integer, parameter :: n = 12
     real :: A(n, n)
     real :: v(n)
-    integer :: i
     call random_number(A)
     v = diag(A) ! v contains diagonal elements of A
 end program demo_diag4
diff --git a/test/example/linalg/demo_diag5.f90 b/test/example/linalg/demo_diag5.f90
@@ -4,7 +4,6 @@ program demo_diag5
     integer, parameter :: n = 3
     real :: A(n, n)
     real, allocatable :: v(:)
-    integer :: i
     A = reshape([1, 2, 3, 4, 5, 6, 7, 8, 9], [n, n])
     v = diag(A, -1) ! v is [2,6]
     v = diag(A, 1)  ! v is [4,8]
diff --git a/test/example/logger/CMakeLists.txt b/test/example/logger/CMakeLists.txt
@@ -2,4 +2,5 @@ ADD_DEMO(add_log_unit)
 ADD_DEMO(configure)
 ADD_DEMO(global_logger)
 ADD_DEMO(log_io_error)
+set_tests_properties(log_io_error PROPERTIES WILL_FAIL true)
 #ADD_DEMO(log_text_error)
diff --git a/test/example/logger/demo_add_log_unit.f90 b/test/example/logger/demo_add_log_unit.f90
@@ -6,17 +6,14 @@ program demo_add_log_unit
 
     open (newunit=unit, file='error_log.txt', &
           form='formatted', status='replace', &
-          position='rewind', err=999, &
-          action='read', iostat=iostat, iomsg=iomsg)
+          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".'
 
+    select case (stat)
+        case (read_only_error)
+            error stop 'Unable to write to "error_log.txt".'
     end select
 
-999 error stop 'Unable to open "error_log.txt".'
-
 end program demo_add_log_unit
diff --git a/test/example/math/demo_linspace_complex.f90 b/test/example/math/demo_linspace_complex.f90
@@ -3,8 +3,8 @@ program demo_linspace_complex
     use stdlib_kinds, only: dp
     implicit none
 
-    complex(dp) :: start = complex(10.0_dp, 5.0_dp)
-    complex(dp) :: end = complex(-10.0_dp, 15.0_dp)
+    complex(dp) :: start = cmplx(10.0_dp, 5.0_dp,kind=dp)
+    complex(dp) :: end = cmplx(-10.0_dp, 15.0_dp,kind=dp)
 
     complex(dp) :: z(11)
 
diff --git a/test/example/math/demo_math_all_close.f90 b/test/example/math/demo_math_all_close.f90
@@ -1,7 +1,7 @@
 program demo_math_all_close
 
     use stdlib_math, only: all_close
-    real    :: x(2) = [1, 2], y, NAN
+    real    :: y, NAN
     complex :: z(4, 4)
 
     y = -3
diff --git a/test/example/selection/demo_arg_select.f90 b/test/example/selection/demo_arg_select.f90
@@ -5,7 +5,7 @@ program demo_arg_select
     real, allocatable :: array(:)
     integer, allocatable :: indx(:)
     integer :: kth_smallest
-    integer :: k, left, right
+    integer :: k
 
     array = [3., 2., 7., 4., 5., 1., 4., -1.]
     indx = [(k, k=1, size(array))]
diff --git a/test/example/selection/demo_select.f90 b/test/example/selection/demo_select.f90
@@ -4,7 +4,7 @@ program demo_select
 
     real, allocatable :: array(:)
     real :: kth_smallest
-    integer :: k, left, right
+    integer :: k
 
     array = [3., 2., 7., 4., 5., 1., 4., -1.]
 
diff --git a/test/example/specialfunctions_gamma/demo_ligamma.f90 b/test/example/specialfunctions_gamma/demo_ligamma.f90
@@ -2,7 +2,7 @@ program demo_ligamma
     use stdlib_specialfunctions_gamma, only: lig => lower_incomplete_gamma
     implicit none
     integer :: p
-    real :: p1, x
+    real :: p1
 
     p = 3
     p1 = 2.3
diff --git a/test/example/stats_distribution_exponential/demo_exponential_rvs.f90 b/test/example/stats_distribution_exponential/demo_exponential_rvs.f90
@@ -3,7 +3,6 @@ program demo_exponential_rvs
     use stdlib_stats_distribution_exponential, only: rexp => rvs_exp
 
     implicit none
-    real ::  a(2, 3, 4)
     complex :: scale
     integer :: seed_put, seed_get
 
diff --git a/test/example/strings/CMakeLists.txt b/test/example/strings/CMakeLists.txt
@@ -2,9 +2,9 @@ ADD_DEMO(chomp)
 ADD_DEMO(count)
 ADD_DEMO(ends_with)
 ADD_DEMO(find)
-#ADD_DEMO(padl)
-#ADD_DEMO(padr)
-#ADD_DEMO(replace_all)
+ADD_DEMO(padl)
+ADD_DEMO(padr)
+ADD_DEMO(replace_all)
 ADD_DEMO(slice)
 ADD_DEMO(starts_with)
 ADD_DEMO(strip)
diff --git a/test/example/strings/demo_chomp.f90 b/test/example/strings/demo_chomp.f90
@@ -1,5 +1,5 @@
 program demo_chomp
-    use stdlib_ascii, only: TAB, VT, NUL, LF, CR, FF
+    use stdlib_ascii, only: TAB, VT, LF, CR, FF
     use stdlib_strings, only: chomp
     implicit none
     print'(a)', chomp("   hello   ")             ! "   hello"
