From f161f44665f03cf3dced88522995b42140d97e7a Mon Sep 17 00:00:00 2001
From: AlysonStahl-NOAA <166434581+AlysonStahl-NOAA@users.noreply.github.com>
Date: Fri, 29 Nov 2024 14:06:38 -0800
Subject: [PATCH] Update test_bitmap.F90

---
 tests/test_bitmap.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/test_bitmap.F90 b/tests/test_bitmap.F90
index 687cfe45..8d2b721a 100644
--- 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