summaryrefslogtreecommitdiffstats
path: root/fortran/src/h5fc.in
diff options
context:
space:
mode:
authorAlbert Cheng <acheng@hdfgroup.org>2009-12-26 10:12:28 (GMT)
committerAlbert Cheng <acheng@hdfgroup.org>2009-12-26 10:12:28 (GMT)
commitaea22826003bbcc0ce2c20692d47b7f8961e0465 (patch)
treee38c68e28fa11202e837d0514a41625d542bdef8 /fortran/src/h5fc.in
parent51e9b5952757a7cf68411b4a85e2914f19879749 (diff)
downloadhdf5-aea22826003bbcc0ce2c20692d47b7f8961e0465.zip
hdf5-aea22826003bbcc0ce2c20692d47b7f8961e0465.tar.gz
hdf5-aea22826003bbcc0ce2c20692d47b7f8961e0465.tar.bz2
[svn-r18056] 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/h5fc.in')
-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.