diff options
author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-06-16 16:38:07 (GMT) |
---|---|---|
committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-06-16 16:38:07 (GMT) |
commit | 9cf084492894061d70f6c4d1fe502789e533d1d9 (patch) | |
tree | 22238b5579c699430ed4ecb55c00393328ef6f7b /fortran/test/tf_F90.f90 | |
parent | 59517a164b52270f5a24d88b40221e43592fcc8d (diff) | |
download | hdf5-9cf084492894061d70f6c4d1fe502789e533d1d9.zip hdf5-9cf084492894061d70f6c4d1fe502789e533d1d9.tar.gz hdf5-9cf084492894061d70f6c4d1fe502789e533d1d9.tar.bz2 |
[svn-r25290] Fix for:
HDFFV-8653
replace non-standard sizeof in the fortran tests with c_sizeof
Diffstat (limited to 'fortran/test/tf_F90.f90')
-rw-r--r-- | fortran/test/tf_F90.f90 | 32 |
1 files changed, 32 insertions, 0 deletions
diff --git a/fortran/test/tf_F90.f90 b/fortran/test/tf_F90.f90 new file mode 100644 index 0000000..e820350 --- /dev/null +++ b/fortran/test/tf_F90.f90 @@ -0,0 +1,32 @@ +!****h* root/fortran/test/tf_F90.f90 +! +! NAME +! tf_F90.f90 +! +! FUNCTION +! Module for when the compiler is not F2003 or F2008 compliant. +! Needed by tf.f90 for the test programs. +! +! COPYRIGHT +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! Copyright by The HDF Group. * +! Copyright by the Board of Trustees of the University of Illinois. * +! 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. * +! * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * +! +!***** +MODULE TH5_MISC_PROVISIONAL + + INTEGER, PARAMETER :: sp = KIND(0.0) + INTEGER, PARAMETER :: dp = KIND(0.D0) + +END MODULE TH5_MISC_PROVISIONAL |