Run pre-commit

Author: znicholls

src/example_fgen_basic/error_v/creation.f90

@@ -6,7 +6,7 @@ module m_error_v_creation
 
     use m_error_v, only: ErrorV, NO_ERROR_CODE
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: create_error, create_errors

src/example_fgen_basic/error_v/creation_wrapper.f90

@@ -17,7 +17,7 @@ module m_error_v_creation_w
         error_v_manager_set_instance_index_to => set_instance_index_to, &
         error_v_manager_ensure_instance_array_size_is_at_least => ensure_instance_array_size_is_at_least
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: create_error, create_errors

src/example_fgen_basic/error_v/error_v.f90

@@ -8,7 +8,7 @@
 !> with the convention that a code of 0 indicates no error.
 module m_error_v
 
-    implicit none
+    implicit none (type, external)
     private
 
     integer, parameter, public :: NO_ERROR_CODE = 0
@@ -34,7 +34,7 @@ module m_error_v
 
         private
 
-        procedure, public:: build, finalise
+        procedure, public :: build, finalise
         ! get_res sort of not needed (?)
         ! get_err sort of not needed (?)
 

src/example_fgen_basic/error_v/error_v_manager.f90

@@ -6,7 +6,7 @@ module m_error_v_manager
 
     use m_error_v, only: ErrorV
 
-    implicit none
+    implicit none (type, external)
     private
 
     type(ErrorV), dimension(:), allocatable :: instance_array
@@ -143,7 +143,7 @@ subroutine ensure_instance_array_size_is_at_least(n)
             ! Race conditions ?
             instance_available = .true.
 
-        elseif (size(instance_available) < n) then
+        else if (size(instance_available) < n) then
 
             allocate(tmp_instances(n))
             tmp_instances(1:size(instance_array)) = instance_array

src/example_fgen_basic/error_v/error_v_wrapper.f90

@@ -14,7 +14,7 @@ module m_error_v_w
         error_v_manager_get_instance => get_instance, &
         error_v_manager_ensure_instance_array_size_is_at_least => ensure_instance_array_size_is_at_least
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: build_instance, finalise_instance, finalise_instances, &

src/example_fgen_basic/error_v/passing.f90

@@ -6,7 +6,7 @@ module m_error_v_passing
 
     use m_error_v, only: ErrorV, NO_ERROR_CODE
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: pass_error, pass_errors

src/example_fgen_basic/error_v/passing_wrapper.f90

@@ -18,7 +18,7 @@ module m_error_v_passing_w
     !     error_v_manager_set_instance_index_to => set_instance_index_to, &
     !     error_v_manager_ensure_instance_array_size_is_at_least => ensure_instance_array_size_is_at_least
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: pass_error, pass_errors

src/example_fgen_basic/fpyfgen/base_finalisable.f90

@@ -4,7 +4,7 @@
 !> across the Python-Fortran interface.
 module fpyfgen_base_finalisable
 
-    implicit none
+    implicit none (type, external)
     private
 
     integer, parameter, public :: INVALID_INSTANCE_INDEX = -1
@@ -38,7 +38,7 @@ subroutine derived_type_finalise(self)
 
             import :: BaseFinalisable
 
-            implicit none
+            implicit none (type, external)
 
             class(BaseFinalisable), intent(inout) :: self
 

src/example_fgen_basic/fpyfgen/derived_type_manager_helpers.f90

@@ -3,7 +3,7 @@ module fpyfgen_derived_type_manager_helpers
 
     use fpyfgen_base_finalisable, only: BaseFinalisable, invalid_instance_index
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: get_derived_type_free_instance_number, &

tests/unit/test_error_v_creation.f90

@@ -2,12 +2,12 @@
 module test_error_v_creation
 
     ! How to print to stdout
-    use ISO_Fortran_env, only: stdout => OUTPUT_UNIT
+    use, intrinsic :: ISO_Fortran_env, only: stdout => OUTPUT_UNIT
     use testdrive, only: new_unittest, unittest_type, error_type, check
 
     use kind_parameters, only: dp
 
-    implicit none
+    implicit none (type, external)
     private
 
     public :: collect_error_v_creation_tests