summaryrefslogtreecommitdiffstats
path: root/fortran/test/t.c
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2008-09-30 21:05:39 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2008-09-30 21:05:39 (GMT)
commit393100b2b64ff6180119649599926ca7f22682f8 (patch)
tree7c806161df2df5497bca4985bfedb87b626a5f00 /fortran/test/t.c
parent915ed3269683d30045d4c06b85ec76c792bcf4ac (diff)
downloadhdf5-393100b2b64ff6180119649599926ca7f22682f8.zip
hdf5-393100b2b64ff6180119649599926ca7f22682f8.tar.gz
hdf5-393100b2b64ff6180119649599926ca7f22682f8.tar.bz2
[svn-r15737] Description:
Changed the tests so that the *.h5 test files are removed depending on the HDF5_NOCLEANUP environment variable. bug 696
Diffstat (limited to 'fortran/test/t.c')
-rw-r--r--fortran/test/t.c19
1 files changed, 19 insertions, 0 deletions
diff --git a/fortran/test/t.c b/fortran/test/t.c
index de450f9..861a3e7 100644
--- a/fortran/test/t.c
+++ b/fortran/test/t.c
@@ -129,3 +129,22 @@ nh5_exit_c(int_f *status)
HDexit((int)*status);
} /* h5_exit_c */
+/*----------------------------------------------------------------------------
+ * Name: h5_env_nocleanup_c
+ * Purpose: Determines the state of the environment variable HDF5_NOCLEANUP
+ * Input: none
+ * Output: status: 1 - HDF5_NOCLEANUP is set
+ * 0 - HDF5_NOCLEANUP is not set
+ * Returns: none
+ * Programmer: M.S. Breitenfeld
+ * September 30, 3008
+ * Modifications:
+ *---------------------------------------------------------------------------*/
+void
+nh5_env_nocleanup_c(int_f *status)
+{
+ *status = (int_f)0;
+ if (HDgetenv("HDF5_NOCLEANUP"))
+ *status = (int_f)1;
+} /* h5_env_nocleanup_c */
+