From fea89d3ae871a39db51da4b394a9f40d0ecb5ebd Mon Sep 17 00:00:00 2001
From: Edward Hartnett <edward.hartnett@noaa.gov>
Date: Tue, 26 Sep 2023 05:33:45 -0600
Subject: [PATCH] testing repeated calls to gf_finalize()

---
 tests/test_getgb2.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/tests/test_getgb2.F90 b/tests/test_getgb2.F90
index 27ad4a45..ec0842ae 100644
--- a/tests/test_getgb2.F90
+++ b/tests/test_getgb2.F90
@@ -125,6 +125,10 @@ program test_getgb2
   call gf_finalize(iret)
   if (iret .ne. 0) stop 5
 
+  ! Call finalize again, should do nothing.
+  call gf_finalize(iret)
+  if (iret .ne. 0) stop 5
+
   print *, 'OK!'
   print *, 'SUCCESS!'
 end program test_getgb2