1 files changed, 64 insertions, 0 deletions
diff --git a/windows_vs6/hl/fortran/examples/test_hl_f90examples.BAT b/windows_vs6/hl/fortran/examples/test_hl_f90examples.BAT
new file mode 100644
index 0000000..30a05d4
--- /dev/null
+++ b/windows_vs6/hl/fortran/examples/test_hl_f90examples.BAT
@@ -0,0 +1,64 @@
+@REM Copyright by The HDF Group.
+@REM Copyright by the Board of Trustees of the University of Illinois.
+@REM All rights reserved.
+@REM
+@REM This file is part of HDF5.  The full HDF5 copyright notice, including
+@REM terms governing use, modification, and redistribution, is contained in
+@REM the files COPYING and Copyright.html.  COPYING can be found at the root
+@REM of the source code distribution tree; Copyright.html can be found at the
+@REM root level of an installed copy of the electronic HDF5 document set and
+@REM is linked from the top-level documents page.  It can also be found at
+@REM http://hdfgroup.org/HDF5/doc/Copyright.html.  If you do not have
+@REM access to either file, you may request a copy from help@hdfgroup.org.
+
+@ECHO OFF
+@:: This batch file is used to test HDF5 High Level Fortran examples.
+@:: Written by   : Fang GUO
+@:: Created      : 12/20/2005
+@:: Last Modified: 
+
+if %1.==. GOTO WRONG
+if "%1"=="/?" GOTO HELP
+if "%1"=="release" GOTO CONFIG
+if "%1"=="debug" GOTO CONFIG
+
+GOTO WRONG
+
+:CONFIG
+if "%2"=="dll" GOTO TEST
+if %2.==. GOTO TEST
+GOTO WRONG
+
+:TEST
+echo.
+HLf90examples%1%2\ex_lite%2
+if ERRORLEVEL == 0 (
+echo. %1 %2 version of High Level Fortran examples     PASSED
+)else (
+echo. %1 %2 version of High Level Fortran examples     FAILED
+)
+echo.
+GOTO END
+
+:WRONG
+echo The syntax of the command is incorrect.
+echo Use test_hl_f90examples /? for usage informtaion
+echo.
+GOTO END
+
+:HELP
+echo Tests HDF5 High Level Fortran examples.
+echo.
+echo test_hl_f90examples [OPTION]
+echo.
+echo Please use one of the following options!
+echo.
+echo test_hl_f90examples release     test HDF5 HL Fortran examples -- release version
+echo test_hl_f90examples release dll test HDF5 HL Fortran examples -- release dll version
+echo test_hl_f90examples debug       test HDF5 HL Fortran examples -- debug version
+echo test_hl_f90examples debug dll   test HDF5 HL Fortran examples -- debug dll version
+echo test_hl_f90examples /?          Help information
+echo.
+GOTO END
+
+:END