From 56bc9fad04220cca0d5f9db0274a1e0868497a84 Mon Sep 17 00:00:00 2001
From: Albert Cheng <acheng@hdfgroup.org>
Date: Fri, 30 Sep 2005 17:26:15 -0500
Subject: [svn-r11486] Purpose: Bug fix.

Description:
mpich2 using f95 did not support function 'unlink'.
Removed the unlink call for now.  Need a better solution.

Platforms tested:
heping using mpich and mpich2 versions of mpif90.

Misc. update:
---
 fortran/examples/ph5example.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/examples/ph5example.f90 b/fortran/examples/ph5example.f90
index ae2906d..4f19268 100644
--- a/fortran/examples/ph5example.f90
+++ b/fortran/examples/ph5example.f90
@@ -116,7 +116,7 @@
      CALL h5fclose_f(file_id, error)
      ! Attempt to remove the data file.  Remove the line if the compiler
      ! does not support it.
-     CALL unlink(filename)
+     !CALL unlink(filename)
 
      !
      ! Close FORTRAN interface
-- 
cgit v0.12