debugging memory errors

NOAA-EMC · Nov 15, 2024 · ae6ae36 · ae6ae36
1 parent fe81cea
commit ae6ae36
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 9 deletions.
diff --git a/.github/workflows/Intel.yml b/.github/workflows/Intel.yml
@@ -59,4 +59,4 @@ jobs:
     - name: test
       run: |
         cd $GITHUB_WORKSPACE/g2/build
-        ctest --verbose
+        ctest --verbose --output-on-failure --rerun-failed
diff --git a/.github/workflows/memcheck.yml b/.github/workflows/memcheck.yml
@@ -64,7 +64,7 @@ jobs:
     - name: test_memcheck
       run: |
         cd $GITHUB_WORKSPACE/g2/build
-        ctest -LE "^noMemcheck$" -T memcheck
+        ctest -LE "^noMemcheck$" -T memcheck --verbose --output-on-failure --rerun-failed
 
     - name: cache-data
       if: steps.cache-data.outputs.cache-hit != 'true'

diff --git a/tests/test_bitmap.F90 b/tests/test_bitmap.F90
@@ -42,17 +42,17 @@ end subroutine g2_create_index
   if (iret .ne. 0) stop 2
 
   ! Open output file where index will be written.
-  !call baopen(lugi, BITMAP_FILE_INDEX, iret)
-  !if (iret .ne. 0) stop 3
+  call baopen(lugi, BITMAP_FILE_INDEX, iret)
+  if (iret .ne. 0) stop 3
 
-  !call g2_create_index(lugb, lugi, idxver, BITMAP_FILE, iret)
-  !if (iret .ne. 0) stop 4
+  call g2_create_index(lugb, lugi, idxver, BITMAP_FILE, iret)
+  if (iret .ne. 0) stop 4
 
   jids = -9999
   jpdt = -9999
   jgdt = -9999
 
-  call getgb2i2(lugb, 0, j, jdisc, jids, jpdtn, jpdt, jgdtn, &
+  call getgb2i2(lugb, lugi, j, jdisc, jids, jpdtn, jpdt, jgdtn, &
        jgdt, unpack, myidxver, k, gfld, iret)
   if (iret .ne. 0) stop 10
   if (k .ne. 1) stop 11
@@ -79,8 +79,8 @@ end subroutine g2_create_index
 
   call baclose(lugb, iret)
   if (iret .ne. 0) stop 100
-  !call baclose(lugi, iret)
-  !if (iret .ne. 0) stop 101
+  call baclose(lugi, iret)
+  if (iret .ne. 0) stop 101
 
   ! Free resources.
   call gf_free(gfld)