#! /bin/sh # # Copyright by The HDF Group. # All rights reserved. # # This file is part of HDF5. The full HDF5 copyright notice, including # terms governing use, modification, and redistribution, is contained in # the files COPYING and Copyright.html. COPYING can be found at the root # of the source code distribution tree; Copyright.html can be found at the # root level of an installed copy of the electronic HDF5 document set and # is linked from the top-level documents page. It can also be found at # http://hdfgroup.org/HDF5/doc/Copyright.html. If you do not have # access to either file, you may request a copy from help@hdfgroup.org. # # This file: run-hlfortran-ex.sh # Written by: Larry Knox # Date: May 11, 2010 # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # This script will compile and run the fortran examples from source files # # installed in .../share/hdf5_examples/fortran using h5fc or h5pfc. The # # order for running programs with RunTest in the MAIN section below is taken # # from the Makefile. The order is important since some of the test programs # # use data files created by earlier test programs. Any future additions should # # be placed accordingly. # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # Initializations EXIT_SUCCESS=0 EXIT_FAILURE=1 # Where the tool is installed. prefix="${prefix:-${DESTDIR}/@prefix@}" PARALLEL=@PARALLEL@ # Am I in parallel mode? AR="@AR@" RANLIB="@RANLIB@" if [ "$PARALLEL" = no ]; then H5TOOL="h5fc" # The tool name else H5TOOL="h5pfc" # The tool name fi H5TOOL_BIN="${prefix}/bin/${H5TOOL}" # The path of the tool binary #### Run test #### RunTest() { Test=$1".f90" echo echo "################# $1 #################" ${H5TOOL_BIN} $Test if [ $? -ne 0 ] then echo "messed up compiling $Test" exit 1 fi ./a.out } ################## MAIN ################## # Run tests if [ $? -eq 0 ] then if (RunTest dsetexample &&\ RunTest fileexample &&\ RunTest rwdsetexample &&\ RunTest attrexample &&\ RunTest groupexample &&\ RunTest grpsexample &&\ RunTest grpdsetexample &&\ RunTest hyperslab &&\ RunTest selectele &&\ RunTest grpit &&\ RunTest refobjexample &&\ RunTest refregexample &&\ RunTest mountexample &&\ RunTest compound); then EXIT_VALUE=${EXIT_SUCCESS} else EXIT_VALUE=${EXIT_FAILURE} fi fi # Cleanup rm a.out rm *.o rm *.h5 echo exit $EXIT_VALUE