From e269e51d082b295f2056fd84a61b084b99cc55c0 Mon Sep 17 00:00:00 2001 From: Tom Clune Date: Tue, 23 Dec 2025 20:00:52 -0500 Subject: [PATCH] Sort of fixes #4277 Trivial change that has all tests pass on OS X with latest NAG (7.241). Not great, but at least it is out of the way for now. --- generic3g/registry/StateRegistry.F90 | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/generic3g/registry/StateRegistry.F90 b/generic3g/registry/StateRegistry.F90 index 403f8442783..479b5f266cd 100644 --- a/generic3g/registry/StateRegistry.F90 +++ b/generic3g/registry/StateRegistry.F90 @@ -321,7 +321,7 @@ function get_subregistry_by_name(this, name, rc) result(subregistry) _RETURN(_SUCCESS) end if - wrap => this%subregistries%at(name,_RC) + wrap => this%subregistries%at(name, _RC) _ASSERT(associated(wrap%registry), 'null pointer encountered for subregistry.') select type (q => wrap%registry) @@ -343,7 +343,7 @@ function get_subregistry_by_conn_pt(this, conn_pt, rc) result(subregistry) integer :: status - subregistry => this%get_subregistry(conn_pt%component_name,_RC) + subregistry => this%get_subregistry(conn_pt%component_name, _RC) _RETURN(_SUCCESS) end function get_subregistry_by_conn_pt @@ -693,7 +693,8 @@ function filter(this, pattern) result(matches) type(VirtualConnectionPt), pointer :: v_pt type(VirtualPtFamilyMapIterator) :: iter - + + matches = VirtualConnectionPtVector() associate (e => this%family_map%ftn_end()) iter = this%family_map%ftn_begin() do while (iter /= e)