diff --git a/test/H5BlockParTestScalarFieldF.f90 b/test/H5BlockParTestScalarFieldF.f90
index 63a3d1e..12809c9 100644
--- a/test/H5BlockParTestScalarFieldF.f90
+++ b/test/H5BlockParTestScalarFieldF.f90
@@ -5,6 +5,11 @@ PROGRAM H5BlockParTestScalarFieldF
    INCLUDE 'H5PartF90.inc'
    INCLUDE 'H5BlockF90.inc'
 
+   INTERFACE
+      INTEGER FUNCTION IARGC ()
+      END FUNCTION IARGC
+   END INTERFACE
+
    INTEGER :: myproc = 0
    INTEGER :: nprocs = 1
    INTEGER :: comm = MPI_COMM_WORLD