From a5e5d3f2a862650ba9de0c4d222f6e78140f40ea Mon Sep 17 00:00:00 2001
From: Achim Gsell <achim.gsell@psi.ch>
Date: Fri, 27 Oct 2006 14:52:54 +0000
Subject: [PATCH] test/H5BlockParTestScalarFieldF.f90 	- interface definition
 for "IARGC()" added, pgi-fortran 	  complains about this (intrinsic!)
 function.

---
 test/H5BlockParTestScalarFieldF.f90 | 5 +++++
 1 file changed, 5 insertions(+)

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