testing repeated calls to gf_finalize()

NOAA-EMC · Sep 26, 2023 · fea89d3 · fea89d3
1 parent bd437b2
commit fea89d3
Showing 1 changed file with 4 additions and 0 deletions.
diff --git 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