summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2009-12-26 10:12:49 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2009-12-26 10:12:49 (GMT)
commitac5945b412d3f7d8453f46cdd3da6ec45f18c3df (patch)
tree73fdc388b42ddaf4a29dd26b5587228fd894aaf0 /fortran/src
parentf40a245ce239b9597efa815d70d1d9f005fbafdc (diff)
downloadhdf5-ac5945b412d3f7d8453f46cdd3da6ec45f18c3df.zip
hdf5-ac5945b412d3f7d8453f46cdd3da6ec45f18c3df.tar.gz
hdf5-ac5945b412d3f7d8453f46cdd3da6ec45f18c3df.tar.bz2
[svn-r18057] Bug fix: 1192
Description: Fixed exit code (sometimes return code in Main) to follow the HDF5 standards. Tested: Jam, both serial and parallel.
Diffstat (limited to 'fortran/src')
-rwxr-xr-xfortran/src/h5fc.in8
1 files changed, 6 insertions, 2 deletions
diff --git a/fortran/src/h5fc.in b/fortran/src/h5fc.in
index df52971..db44600 100755
--- a/fortran/src/h5fc.in
+++ b/fortran/src/h5fc.in
@@ -36,6 +36,10 @@ HL="@HL@"
## ##
############################################################################
+# Constants definitions
+EXIT_SUCCESS=0
+EXIT_FAILURE=1
+
host_os="@host_os@"
prog_name="`basename $0`"
@@ -89,7 +93,7 @@ usage() {
echo " HDF5_FC - use a different Fortran 90 or 95 compiler"
echo " HDF5_FLINKER - use a different linker"
echo " "
- exit 1
+ exit $EXIT_FAILURE
}
# Show the configuration summary of the library recorded in the
@@ -101,7 +105,7 @@ showconfigure()
}
# Main
-status=0
+status=$EXIT_SUCCESS
if test "$#" = "0"; then
# No parameters specified, issue usage statement and exit.