From bf7e5ece8817839667af89885597207a42a51d2b Mon Sep 17 00:00:00 2001 From: Tom Clune Date: Mon, 9 Oct 2023 18:57:49 -0400 Subject: [PATCH] Update checkpoint_simulator.F90 Incorrect format detected by NAG --- benchmarks/io/checkpoint_simulator/checkpoint_simulator.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/benchmarks/io/checkpoint_simulator/checkpoint_simulator.F90 b/benchmarks/io/checkpoint_simulator/checkpoint_simulator.F90 index 353ad216c854..c82f395c3c11 100644 --- a/benchmarks/io/checkpoint_simulator/checkpoint_simulator.F90 +++ b/benchmarks/io/checkpoint_simulator/checkpoint_simulator.F90 @@ -719,7 +719,10 @@ program checkpoint_tester write(*,'(A,I3)')"Num writers: ",support%num_writers write(*,'(A,I6)')"Total cores: ",comm_size write(*,'(A,I6,I6)')"Cube size: ",support%im_world,support%lm - write(*,'(A,L,L,L,L,L,L,L)')"Split file, 3D_gather, chunk, extra, netcdf output, write barrier, do writes: ",support%split_file,support%gather_3d,support%do_chunking,support%extra_info,support%netcdf_writes,support%write_barrier,support%do_writes + write(*,'(A,7(L1))')"Split file, 3D_gather, chunk, extra, netcdf output, write barrier, do writes: ",& + support%split_file, support%gather_3d, & + support%do_chunking,support%extra_info, & + support%netcdf_writes,support%write_barrier, support%do_writes write(*,'(A,I6)')"Number of trial: ",support%n_trials write(*,'(A,G16.8)')"Application time: ",application_time end if