Update test_bitmap.F90

NOAA-EMC · Nov 29, 2024 · f161f44 · f161f44
1 parent 1e19d10
commit f161f44
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/test_bitmap.F90 b/tests/test_bitmap.F90
@@ -51,7 +51,7 @@ end subroutine getidx2
   if (nnum .ne. 1) stop 6
   if (nlen .ne. 226) stop 7
 
-  call pngunpack(cbuf, nlen, idrstmpl, ndpts, fld)
+  call pngunpack(cbuf, nnum, idrstmpl, ndpts, fld)
 
   call baclose(lugb, iret)
   if (iret .ne. 0) stop 100