more intel debugging

NOAA-EMC · Feb 7, 2024 · a6e42cd · a6e42cd
1 parent 0a2d316
commit a6e42cd
Showing 1 changed file with 5 additions and 5 deletions.
diff --git a/tests/test_gbytec.F90 b/tests/test_gbytec.F90
@@ -294,11 +294,11 @@ program test_gbytec
      endif
   end do
 
-  ! print *, '   now unpack into 1 64-bit int with g2_gbytesc8()...'
-  ! in8_1(1) = 0
-  ! call g2_gbytesc8(out8, in8_1, iskip, 64, 0, 1)
-  ! !print *, in8_1
-  ! if (in8_1(1) .ne. in8(1)) stop 150
+  print *, '   now unpack into 1 64-bit int with g2_gbytesc8()...'
+  in8_1(1) = 0
+  call g2_gbytesc8(out8, in8_1, iskip, 64, 0, 1)
+  !print *, in8_1
+  if (in8_1(1) .ne. in8(1)) stop 150
 
   print *, 'SUCCESS!'