debug

NOAA-EMC · Dec 20, 2024 · 7cab576 · 7cab576
1 parent 2bd0f7e
commit 7cab576
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/tests/test_all_key_tables.F90 b/tests/test_all_key_tables.F90
@@ -107,14 +107,14 @@ program test_all_tables
   if (val1 .ne. 27) stop 2
   call get_g2_versionno('v112021', val1, ierr)
   if (val1 .ne. 28) stop 2
-  call get_g2_versionno('v112021', val1, ierr)
-  if (val1 .ne. 29) stop 2
   call get_g2_versionno('v052022', val1, ierr)
+  if (val1 .ne. 29) stop 2
+  call get_g2_versionno('v112022', val1, ierr)
   if (val1 .ne. 30) stop 2
+  call get_g2_versionno('v062023', val1, ierr)
+  if (val1 .ne. 31) stop 2
   call get_g2_versionno('v112022', val1, ierr)
   if (val1 .ne. 31) stop 2
-  call get_g2_versionno('v062023', val1, ierr)
-  if (val1 .ne. 32) stop 2
   call get_g2_versionno('preoper', val1, ierr)
   if (val1 .ne. 33) stop 2
   call get_g2_versionno('xxx', val1, ierr)