diff --git a/test/H5BlockParTestScalarFieldF.f90 b/test/H5BlockParTestScalarFieldF.f90
index 31efc8b..d02bf8f 100644
--- a/test/H5BlockParTestScalarFieldF.f90
+++ b/test/H5BlockParTestScalarFieldF.f90
@@ -25,6 +25,8 @@ PROGRAM H5BlockParTestScalarFieldF
    INTEGER*8 :: layout32 (6,32)
    INTEGER*8 :: layout32g(6,32)
 
+   INTEGER*8 :: IARGC
+
    DATA layout1  / 1,64,  1,64,   1,512 /
    DATA layout8  / 1,64,  1,64,   1, 64, &
  		   1,64,  1,64,  65,128, &