diff --git a/Overlap/Tests/test_overlap.f90 b/Overlap/Tests/test_overlap.f90 index 4a48498edf7ad21cc82178b9d61434939cb69b50..f64273c766d2f93df3f2ff7f7dca206e3997e56f 100644 --- a/Overlap/Tests/test_overlap.f90 +++ b/Overlap/Tests/test_overlap.f90 @@ -1,7 +1,5 @@ program test_overlap - use, intrinsic:: ISO_FORTRAN_ENV - ! Libraries: use jumble, only: get_command_arg_dyn, read_opcol, new_unit, ediff1d, assert use shapelib_03, only: dbf_read_attribute_03 @@ -34,8 +32,8 @@ program test_overlap call config_graph(rank = 0) ! main_nml: - write(unit = error_unit, nml = main_nml) - write(unit = error_unit, fmt = *) "Enter namelist main_nml." + write(unit = *, nml = main_nml) + print *, "Enter namelist main_nml." read(unit = *, nml = main_nml) write(unit = *, nml = main_nml)