summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2005-09-30 22:26:15 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2005-09-30 22:26:15 (GMT)
commit56bc9fad04220cca0d5f9db0274a1e0868497a84 (patch)
tree0d4b13bbf1b180e3da2ed9195e5e5f6f91dd9149
parent41c595e2693a2a434bfcaf45e8fcf76f8e0e456c (diff)
downloadhdf5-56bc9fad04220cca0d5f9db0274a1e0868497a84.zip
hdf5-56bc9fad04220cca0d5f9db0274a1e0868497a84.tar.gz
hdf5-56bc9fad04220cca0d5f9db0274a1e0868497a84.tar.bz2
[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:
-rw-r--r--fortran/examples/ph5example.f902
1 files changed, 1 insertions, 1 deletions
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