fix linter

fpm.toml

@@ -39,4 +39,5 @@ test-drive.git = "https://github.com/JorgeG94/test-drive"
 [extra.fortitude.check]
 select = ["C", "E", "S"]
 ignore = ["C003", "C072"]
-line-length = 132
+line-length = 178
+extend-exclude = ["benchmarks", "test"]

src/lib/core/sort/pic_sorting_radix_sort.f90

@@ -236,7 +236,7 @@ pure module subroutine int32_radix_sort(array, work, reverse)
    end subroutine int32_radix_sort
 
    module subroutine sp_radix_sort(array, work, reverse)
-      use iso_c_binding, only: c_loc, c_f_pointer
+      use, intrinsic :: iso_c_binding, only: c_loc, c_f_pointer
       real(kind=sp), dimension(:), intent(inout), target :: array
       real(kind=sp), dimension(:), intent(inout), target, optional :: work
       logical, intent(in), optional :: reverse
@@ -339,7 +339,7 @@ pure module subroutine int64_radix_sort(array, work, reverse)
    end subroutine int64_radix_sort
 
    module subroutine dp_radix_sort(array, work, reverse)
-      use iso_c_binding, only: c_loc, c_f_pointer
+      use, intrinsic :: iso_c_binding, only: c_loc, c_f_pointer
       real(kind=dp), dimension(:), intent(inout), target :: array
       real(kind=dp), dimension(:), intent(inout), target, optional :: work
       logical, intent(in), optional :: reverse

src/lib/core/strings/pic_string_type.F90

@@ -1208,7 +1208,8 @@ end subroutine read_formatted
 !> We deeply trust in the compiler to inline and optimize this piece of code away.
 elemental subroutine unused_dummy_argument(dummy)
    class(*), intent(in) :: dummy
-   associate (dummy => dummy); end associate
+   associate (dummy => dummy)
+   end associate
 end subroutine unused_dummy_argument
 
 !> Safely return the character sequences represented by the string

src/lib/core/strings/pic_strings.f90

@@ -10,7 +10,7 @@ module pic_strings
    use pic_string_type, only: string_type, char, verify, repeat, slen, len_trim, move
    use pic_optional_value, only: pic_optional
    use pic_types, only: sp, dp, int32, int64, fbool
-   use iso_c_binding, only: c_null_char, c_char
+   use, intrinsic :: iso_c_binding, only: c_null_char, c_char
    implicit none
    private
 

test/CMakeLists.txt

@@ -46,8 +46,8 @@ target_link_libraries(
   "${project_name}-tester" PRIVATE "${main_lib}" "${core_lib}"
                                    test-drive::test-drive)
 
-message(STATUS "Adding the following tests to ctests...")
+# message(STATUS "Adding the following tests to ctests...")
 foreach(t IN LISTS tests)
-  message(STATUS "${project_name}/${t} ${project_name}-tester ${t}")
+  # message(STATUS "${project_name}/${t} ${project_name}-tester ${t}")
   add_test("${project_name}/${t}" "${project_name}-tester" "${t}")
 endforeach()

test/test_pic_ascii.f90

@@ -764,19 +764,32 @@ elemental logical function validate(ascii_code, func)
          c = achar(ascii_code)
 
          select case (func)
-         case (1); validate = is_control(c)
-         case (2); validate = is_printable(c)
-         case (3); validate = is_white(c)
-         case (4); validate = is_blank(c)
-         case (5); validate = is_graphical(c)
-         case (6); validate = is_punctuation(c)
-         case (7); validate = is_alphanum(c)
-         case (8); validate = is_alpha(c)
-         case (9); validate = is_upper(c)
-         case (10); validate = is_lower(c)
-         case (11); validate = is_digit(c)
-         case (12); validate = is_hex_digit(c)
-         case default; validate = .false.
+         case (1)
+            validate = is_control(c)
+         case (2)
+            validate = is_printable(c)
+         case (3)
+            validate = is_white(c)
+         case (4)
+            validate = is_blank(c)
+         case (5)
+            validate = is_graphical(c)
+         case (6)
+            validate = is_punctuation(c)
+         case (7)
+            validate = is_alphanum(c)
+         case (8)
+            validate = is_alpha(c)
+         case (9)
+            validate = is_upper(c)
+         case (10)
+            validate = is_lower(c)
+         case (11)
+            validate = is_digit(c)
+         case (12)
+            validate = is_hex_digit(c)
+         case default
+            validate = .false.
          end select
       end function validate