build: rm external assert lib dependence

Author: rouson

manifest/fpm.toml.template

@@ -7,6 +7,5 @@ copyright = "2021-2024 UC Regents"
 
 [dev-dependencies]
 julienne = {git = "https://github.com/berkeleylab/julienne.git", tag = "1.5.3"}
-assert = {git = "https://github.com/berkeleylab/assert.git", tag = "2.0.0"}
 
 [build]

test/main.F90

@@ -1,11 +1,7 @@
 ! Copyright (c) 2020-2024, The Regents of the University of California
 ! Terms of use are as specified in LICENSE.txt
-
-#include "assert_macros.h"
-
 program main
   !! Test the Caffeine implementation of the Parallel Runtime Interface for Fortran (PRIF)
-  use assert_m
   use iso_c_binding, only : c_bool
   use julienne_m, only : command_line_t, GitHub_CI
   use prif, only : &
@@ -34,7 +30,6 @@ program main
 
   call stop_and_print_usage_info_if_help_requested
   call prif_init(stat=init_status)
-  call_assert(init_status==successful)
   call run_tests_and_report(passes, tests)
   call prif_this_image_no_coarray(this_image=me)
   if (me==1) print "(a,*(a,G0))", new_line(''), "_________ In total, ",passes," of ",tests, " tests pass. _________"

test/prif_co_reduce_test_m.F90

@@ -2,11 +2,9 @@
 ! Terms of use are as specified in LICENSE.txt
 
 #include "language-support.F90"
-#include "assert_macros.h"
 
 module prif_co_reduce_test_m
   !! Unit test fort the prif_init program inititation subroutine
-  use assert_m
   use prif, only : prif_co_reduce, prif_num_images, prif_this_image_no_coarray, prif_error_stop, prif_co_max
   use prif_test_m, only : prif_test_t, test_description_substring
   use iso_c_binding, only : c_bool, c_funloc, c_char, c_double, c_int64_t
@@ -101,7 +99,7 @@ function alphabetically_first_string() result(test_passes)
     pure function alphabetize(lhs, rhs) result(first_alphabetically)
       character(len=*), intent(in) :: lhs, rhs
       character(len=len(lhs)) first_alphabetically
-      call_assert(len(lhs) == len(rhs))
+      if (len(lhs) /= len(rhs)) call prif_error_stop(quiet=.false., stop_code_char="argument size mismatchin in function alphabetize")
       first_alphabetically = min(lhs,rhs)
     end function