From 64a0fe29d7f3d5c19cdd5758c26548a2ce533083 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Mon, 2 Feb 2026 20:32:59 -0800 Subject: [PATCH] fix(file_t): write_lines checks if already open --- src/julienne/julienne_file_s.F90 | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/julienne/julienne_file_s.F90 b/src/julienne/julienne_file_s.F90 index ee642d9e..bfa6dd19 100644 --- a/src/julienne/julienne_file_s.F90 +++ b/src/julienne/julienne_file_s.F90 @@ -26,10 +26,12 @@ module procedure write_to_character_file_name integer file_unit, l + logical file_open call_assert(allocated(self%lines_)) - open(newunit=file_unit, file=file_name, form='formatted', status='unknown', action='write') + inquire(file=file_name, opened=file_open, number=file_unit) + if (.not. file_open) open(newunit=file_unit, file=file_name, form='formatted', status='unknown', action='write') do l = 1, size(self%lines_) write(file_unit, '(a)') self%lines_(l)%string()