fix OB061 lint errors

Author: connoraird

src/mesh_generator/mesh_generator.f90

@@ -127,7 +127,7 @@ subroutine write_mesh_to_file(num_nodes, num_elements, num_boundary_nodes, nodes
         integer(kind=int64), dimension(3, num_boundary_nodes), intent(inout) :: boundary_edges
         real(kind=real64), dimension(2, num_nodes), intent(inout) :: nodes
 
-        character*11 :: file_name
+        character(len=11) :: file_name
         integer :: file_io
         integer :: iostat
         integer :: i, num_sets, num_dirichlet_boundary_conditions, num_neumann_boundary_conditions

src/poisson/poisson.f90

@@ -105,7 +105,7 @@ subroutine open_file(file_name, status, file_io)
 
             integer, intent(in) :: file_io
             character(len=:), allocatable, intent(in) :: file_name
-            character*3, intent(in) :: status
+            character(len=3), intent(in) :: status
 
             integer :: iostat
 

testing/test-drive/test_mesh_generator.f90

@@ -127,7 +127,7 @@ subroutine verify_calculate_mesh(error, inputs, expected_outputs)
         integer(kind=int64), dimension(3, inputs%num_boundary_nodes) :: actual_boundary_edges
         real(kind=real64), dimension(2, inputs%num_nodes) :: actual_nodes
         real(kind=real64), parameter :: threshold = 1e-06
-        character*80 :: failure_message
+        character(len=80) :: failure_message
 
         integer :: i, j