Turn fortitude rules back on

Author: mzecc

fortitude.toml

@@ -1,4 +1,5 @@
 [check]
-select = ["C", "E", "S"]  # Enable certain error/warning categories
-ignore = ["C003", "C132", "C002"]         # Ignore specific warnings
-line-length = 120         # Max allowed line length
+# TODO: think about adding other rules
+select = [ "C", "E", "S" ]
+ignore = [ ]
+line-length = 120

src/example_fgen_basic/get_wavelength.f90

@@ -7,7 +7,7 @@ module m_get_wavelength
 
     use kind_parameters, only: dp
 
-    implicit none
+    implicit none (type, external)
     private
 
     real(kind=dp), parameter, public :: speed_of_light = 2.99792e8_dp

src/example_fgen_basic/get_wavelength_wrapper.f90

@@ -15,7 +15,7 @@ module m_get_wavelength_w  ! Convention to date: just suffix wrappers with _w
     ! and the original function should have the same name.
     ! ("o_" for original)
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: get_wavelength

src/example_fgen_basic/kind_parameters.f90

@@ -2,23 +2,23 @@
 !> See https://fortran-lang.org/learn/best_practices/floating_point/
 module kind_parameters
 
-    implicit none
-    public
+    implicit none (type, external)
+    private
 
     !> Single precision real numbers, 6 digits, range 10⁻³⁷ to 10³⁷-1; 32 bits
-    integer, parameter :: sp = selected_real_kind(6, 37)
+    integer, parameter, public :: sp = selected_real_kind(6, 37)
     !> Double precision real numbers, 15 digits, range 10⁻³⁰⁷ to 10³⁰⁷-1; 64 bits
-    integer, parameter :: dp = selected_real_kind(15, 307)
+    integer, parameter, public :: dp = selected_real_kind(15, 307)
     !> Quadruple precision real numbers, 33 digits, range 10⁻⁴⁹³¹ to 10⁴⁹³¹-1; 128 bits
-    integer, parameter :: qp = selected_real_kind(33, 4931)
+    integer, parameter, public :: qp = selected_real_kind(33, 4931)
 
     !> Char length for integers, range -2⁷ to 2⁷-1; 8 bits
-    integer, parameter :: i1 = selected_int_kind(2)
+    integer, parameter, public :: i1 = selected_int_kind(2)
     !> Short length for integers, range -2¹⁵ to 2¹⁵-1; 16 bits
-    integer, parameter :: i2 = selected_int_kind(4)
+    integer, parameter, public :: i2 = selected_int_kind(4)
     !> Length of default integers, range -2³¹ to 2³¹-1; 32 bits
-    integer, parameter :: i4 = selected_int_kind(9)
+    integer, parameter, public :: i4 = selected_int_kind(9)
     !> Long length for integers, range -2⁶³ to 2⁶³-1; 64 bits
-    integer, parameter :: i8 = selected_int_kind(18)
+    integer, parameter, public :: i8 = selected_int_kind(18)
 
 end module kind_parameters

tests/unit/main.f90

@@ -5,7 +5,7 @@ program tester_unit
     use testdrive, only: run_testsuite, new_testsuite, testsuite_type, select_suite, run_selected, get_argument
     use test_get_wavelength, only: collect_get_wavelength_tests
 
-    implicit none
+    implicit none (type, external)
     integer :: stat, is
     character(len=:), allocatable :: suite_name, test_name
     type(testsuite_type), allocatable :: testsuites(:)

tests/unit/test_get_wavelength.f90

@@ -7,7 +7,7 @@ module test_get_wavelength
 
     use kind_parameters, only: dp
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: collect_get_wavelength_tests