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 +