From d4d426a3b8d9f7763f6298d1be49574447d01f41 Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Thu, 7 Aug 2025 14:07:18 -0700 Subject: [PATCH] fix(julienne_assert): define string only for fails --- src/julienne/julienne_assert_s.f90 | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) diff --git a/src/julienne/julienne_assert_s.f90 b/src/julienne/julienne_assert_s.f90 index a3380069e..071560407 100644 --- a/src/julienne/julienne_assert_s.f90 +++ b/src/julienne/julienne_assert_s.f90 @@ -3,17 +3,16 @@ submodule(julienne_assert_m) julienne_assert_s use assert_m, only : assert_always - use julienne_m, only : string_t implicit none contains module procedure julienne_assert - character(len=:), allocatable :: diagnostics_string - diagnostics_string = test_diagnosis%diagnostics_string() - if (present(file)) diagnostics_string = diagnostics_string // " in file " // file - if (present(line)) diagnostics_string = diagnostics_string // " at line " // string_t(line) - call assert_always(test_diagnosis%test_passed(), diagnostics_string) + if (.not. test_diagnosis%test_passed()) then + associate(diagnostics_string => test_diagnosis%diagnostics_string()) + call assert_always(.false., diagnostics_string%string(), file, line) + end associate + end if end procedure end submodule julienne_assert_s