From a5e80bd595fc0cfe9c8d47954c452edc41e5c7d6 Mon Sep 17 00:00:00 2001 From: Scot Breitenfeld Date: Sat, 5 Nov 2011 14:39:49 -0500 Subject: [svn-r21720] Description: Renamed hdf file dsetf.h5 to dsetf_F03.h5 to avoid a possible conflict with the same file created in the fortranlib_test.f90 test. Tested: jam (pgi) --- fortran/test/tH5T_F03.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/test/tH5T_F03.f90 b/fortran/test/tH5T_F03.f90 index f7cbd15..215ac9e 100644 --- a/fortran/test/tH5T_F03.f90 +++ b/fortran/test/tH5T_F03.f90 @@ -1031,7 +1031,7 @@ END SUBROUTINE test_array_compound_atomic INTEGER, PARAMETER :: real_kind_7 = SELECTED_REAL_KIND(Fortran_REAL_4) !should map to REAL*4 on most modern processors INTEGER, PARAMETER :: real_kind_15 = SELECTED_REAL_KIND(Fortran_REAL_8) !should map to REAL*8 on most modern processors - CHARACTER(LEN=8), PARAMETER :: filename = "dsetf.h5" ! File name + CHARACTER(LEN=12), PARAMETER :: filename = "dsetf_F03.h5" ! File name CHARACTER(LEN=5), PARAMETER :: dsetname1 = "dset1" ! Dataset name CHARACTER(LEN=5), PARAMETER :: dsetname2 = "dset2" ! Dataset name CHARACTER(LEN=5), PARAMETER :: dsetname4 = "dset4" ! Dataset name -- cgit v0.12