From c141db4050ed9aa43a60f3838abf73a1673f99f1 Mon Sep 17 00:00:00 2001
From: Lionel GUEZ <guez@lmd.ens.fr>
Date: Tue, 4 Apr 2023 18:20:04 +0200
Subject: [PATCH] Write to standard output instead of standard error

---
 Overlap/Tests/test_overlap.f90 | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/Overlap/Tests/test_overlap.f90 b/Overlap/Tests/test_overlap.f90
index 4a48498e..f64273c7 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)
 
-- 
GitLab