From bc6206909573e351fd71c581b81bb4552f0a9220 Mon Sep 17 00:00:00 2001 From: Ryan Mulhall <35538242+rem1776@users.noreply.github.com> Date: Fri, 26 Jul 2024 14:25:37 -0400 Subject: [PATCH] fix: mpp stdlog test fails with use_deprecated_io flag (#1552) --- test_fms/mpp/test_stdlog.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/test_fms/mpp/test_stdlog.F90 b/test_fms/mpp/test_stdlog.F90 index f8a9bc6d4..61ee8d81c 100644 --- a/test_fms/mpp/test_stdlog.F90 +++ b/test_fms/mpp/test_stdlog.F90 @@ -83,6 +83,8 @@ subroutine check_write() do i=1, 7 read(u_num_warn, '(A)') line if (trim(line) == '') cycle + !! if we're testing with the old io enabled, we'll have some additional output we can skip + if (trim(line) == 'NOTE from PE 0: MPP_IO_SET_STACK_SIZE: stack size set to 131072.') cycle if(trim(line) .ne. trim(ref_line(ref_num))) call mpp_error(FATAL, "warnfile output does not match reference data"& //"reference line:"//ref_line(ref_num) & //"output line:"//line) @@ -91,4 +93,5 @@ subroutine check_write() close(u_num_warn) end subroutine check_write -end program test_stdlog \ No newline at end of file +end program test_stdlog +