From b3ac04c3323623ea7f6219209d02d314201ec8fa Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Fri, 31 Jul 2026 12:59:01 -0700 Subject: [PATCH 1/2] chore(stop_and_print): consistent test-file naming --- test/{test_stop_and_print.F90 => stop_and_print_test.F90} | 0 1 file changed, 0 insertions(+), 0 deletions(-) rename test/{test_stop_and_print.F90 => stop_and_print_test.F90} (100%) diff --git a/test/test_stop_and_print.F90 b/test/stop_and_print_test.F90 similarity index 100% rename from test/test_stop_and_print.F90 rename to test/stop_and_print_test.F90 From 16ba5b51fd7197226b7df95d122b3dc1dcaa351f Mon Sep 17 00:00:00 2001 From: Damian Rouson Date: Fri, 31 Jul 2026 12:59:45 -0700 Subject: [PATCH 2/2] feat(stop_and_print): support rank 0-2 logical arg --- src/julienne/julienne_stop_and_print_s.F90 | 12 ++++++++++++ 1 file changed, 12 insertions(+) diff --git a/src/julienne/julienne_stop_and_print_s.F90 b/src/julienne/julienne_stop_and_print_s.F90 index ad46d45a7..a7f580b8c 100644 --- a/src/julienne/julienne_stop_and_print_s.F90 +++ b/src/julienne/julienne_stop_and_print_s.F90 @@ -94,6 +94,9 @@ pure subroutine stop_and_print_header_data_footer(data, header, footer) type is(real) stringy_stuff = string_t(stuff) stop_code = stringy_stuff%string() + type is(logical) + stringy_stuff = merge("T","F", stuff) + stop_code = stringy_stuff%string() class is(string_t) stop_code = stuff%string() class is(writable_t) @@ -126,6 +129,9 @@ pure subroutine stop_and_print_header_data_footer(data, header, footer) type is(real) stringy_stuff = .csv. string_t(stuff) stop_code = stringy_stuff%string() + type is(logical) + stringy_stuff = .csv. string_t(merge("T","F", stuff)) + stop_code = stringy_stuff%string() class is(string_t) stringy_stuff = .csv. stuff stop_code = stringy_stuff%string() @@ -149,6 +155,9 @@ pure subroutine stop_and_print_header_data_footer(data, header, footer) type is(real) stringy_stuff = [(.csv. string_t(stuff(row,:)) , row=1,size(stuff,1))] .separatedBy. new_line('') stop_code = stringy_stuff%string() + type is(logical) + stringy_stuff = [(.csv. string_t(merge("T","F", stuff(row,:))), row=1,size(stuff,1))] .separatedBy. new_line('') + stop_code = stringy_stuff%string() class default call internal_error_stop("character_stop_code (in print_and_stop_s): unsupported stop-code type for rank-2 array") end select @@ -166,6 +175,9 @@ pure subroutine stop_and_print_header_data_footer(data, header, footer) type is(real) stringy_stuff = [( [(.csv. string_t(stuff(row,:,page)) , row=1,size(stuff,1))] .separatedBy. new_line(''), page = 1,size(stuff,3) )] .separatedBy. (new_line('') // new_line('')) stop_code = stringy_stuff%string() + type is(logical) + stringy_stuff = [( [(.csv. string_t(merge("T","F", stuff(row,:,page))) , row=1,size(stuff,1))] .separatedBy. new_line(''), page = 1,size(stuff,3) )] .separatedBy. (new_line('') // new_line('')) + stop_code = stringy_stuff%string() class default call internal_error_stop("character_stop_code (in print_and_stop_s): unsupported stop-code type for rank-3 array") end select