From f0a4ba97b01370372e35c240a4b981d2ec577f23 Mon Sep 17 00:00:00 2001 From: Anthony Islas Date: Mon, 6 Apr 2026 13:58:52 -0700 Subject: [PATCH] Fix premature assignment to optional argument before checking existence Check that ierr is present, and if so use the module no error value rather than a hard-coded value of zero --- src/framework/mpas_stream_manager.F | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/src/framework/mpas_stream_manager.F b/src/framework/mpas_stream_manager.F index 7a3c7b079a..8a4a1b4ad3 100644 --- a/src/framework/mpas_stream_manager.F +++ b/src/framework/mpas_stream_manager.F @@ -4073,7 +4073,9 @@ subroutine mpas_get_stream_filename(manager, streamID, when, blockID, filename, type (MPAS_TimeInterval_type) :: filename_interval type (MPAS_Time_type) :: now_time - ierr = 0 + if ( present(ierr) ) then + ierr = MPAS_STREAM_MGR_NOERR + end if if ( present(blockID) ) then blockID_local = blockID