diff --git a/Common/read_field_indices.f90 b/Common/read_field_indices.f90
index 5e12fc4b000838f2b60e0b76486958ad462f49a8..3d358c3e09d6783c9bb79552b31a0795cbe22532 100644
--- a/Common/read_field_indices.f90
+++ b/Common/read_field_indices.f90
@@ -19,8 +19,7 @@ contains
 
     if (rank == 0) then
        call dbf_get_field_index_03(hshp%extremum, "ssh", hshp%extr_ssh)
-       call dbf_get_field_index_03(hshp%extremum, "days_1950", &
-            hshp%extr_date)
+       call dbf_get_field_index_03(hshp%extremum, "days_1950", hshp%extr_date)
        call dbf_get_field_index_03(hshp%extremum, "eddy_index", &
             hshp%extr_eddy_index)
        call dbf_get_field_index_03(hshp%extremum, "interpolat", &
@@ -31,8 +30,7 @@ contains
        call dbf_get_field_index_03(hshp%outermost, "r_eq_area", &
             hshp%out_r_eq_area)
        call dbf_get_field_index_03(hshp%outermost, "ssh", hshp%out_ssh)
-       call dbf_get_field_index_03(hshp%outermost, "radius4", &
-            hshp%out_radius4)
+       call dbf_get_field_index_03(hshp%outermost, "radius4", hshp%out_radius4)
 
        call dbf_get_field_index_03(hshp%max_speed, "r_eq_area", &
             hshp%max_speed_r_eq_area)
diff --git a/Overlap/Tests/test_overlap.f90 b/Overlap/Tests/test_overlap.f90
index 7413a7a544bbec4a914e711b3beda30d6ea64e44..e16761db9bdd8da4080937e2b604e741c34975bd 100644
--- a/Overlap/Tests/test_overlap.f90
+++ b/Overlap/Tests/test_overlap.f90
@@ -78,8 +78,7 @@ program test_overlap
   corner = corner_deg * deg_to_rad
   step = step_deg * deg_to_rad
   allocate(flow(max_delta + 1))
-  call read_column(ishape_last, &
-       file = trim(shpc_dir) // "/ishape_last.txt")
+  call read_column(ishape_last, file = trim(shpc_dir) // "/ishape_last.txt")
   call shpc_open(hshp, trim(shpc_dir), rank = 0)
   call dbf_read_attribute_03(k1, hshp%extremum, hshp%extr_date, ishape = 0)
   call read_snapshot(flow(1), k_test_1, hshp, corner, step, nlon, nlat, copy, &