diff options
| author | Elena Pourmal <epourmal@hdfgroup.org> | 2007-03-29 17:15:29 (GMT) |
|---|---|---|
| committer | Elena Pourmal <epourmal@hdfgroup.org> | 2007-03-29 17:15:29 (GMT) |
| commit | 85a7a522a5479bcfd36a98bf2648b49a12d03295 (patch) | |
| tree | c1ea03ccc03906847400fae2915fa9cb2e91f08c /fortran | |
| parent | 0975f08d7ee0366fd0c648a04f32380aa8cd1938 (diff) | |
| download | hdf5-85a7a522a5479bcfd36a98bf2648b49a12d03295.zip hdf5-85a7a522a5479bcfd36a98bf2648b49a12d03295.tar.gz hdf5-85a7a522a5479bcfd36a98bf2648b49a12d03295.tar.bz2 | |
[svn-r13561] Daily tests failed on kagiso and smirom when Intel comopiler is used with
"-check all" flag
Solution:
Initialized variables to prevent run time error
Platforms tested:
smirom and kagiso with Intel
kagiso with PGI
Diffstat (limited to 'fortran')
| -rw-r--r-- | fortran/src/H5test_kind.f90 | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/fortran/src/H5test_kind.f90 b/fortran/src/H5test_kind.f90 index feef616..802d8f9 100644 --- a/fortran/src/H5test_kind.f90 +++ b/fortran/src/H5test_kind.f90 @@ -53,7 +53,7 @@ j = 0 write(*, "("" subroutine i"" i2.2,""()"")") j write(*,*)" implicit none" - write(*,*)" integer :: a" + write(*,*)" integer :: a = 0" write(*,*)" integer :: a_size" write(*,*)" a_size = bit_size(a)" write(*,*)" if (a_size .eq. 8) then" @@ -76,8 +76,8 @@ jr = 0 write(*, "("" subroutine r"" i2.2,""()"")") j write(*,*)" implicit none" - write(*,*)" real :: b(1)" - write(*,*)" integer :: a(1)" + write(*,*)" real :: b(1) = 0" + write(*,*)" integer :: a(1) = 0" write(*,*)" integer :: a_size" write(*,*)" integer :: real_size" write(*,*)" integer :: ab_size ! How many integers needed to hold a real" @@ -102,8 +102,8 @@ jd = 0 write(*, "("" subroutine d"" i2.2,""()"")") jd write(*,*)" implicit none" - write(*,*)" double precision :: b" - write(*,*)" integer :: a(8)" + write(*,*)" double precision :: b = 0" + write(*,*)" integer :: a(8) = 0" write(*,*)" integer :: a_size" write(*,*)" integer :: b_size" write(*,*)" a_size = bit_size(a(1))" @@ -120,7 +120,7 @@ j = kind_numbers(i) write(*, "("" subroutine i"" i2.2,""()"")") j write(*,*)" implicit none" - write(*,*)" integer(",j,") :: a" + write(*,*)" integer(",j,") :: a = 0" write(*,*)" integer :: a_size" write(*,*)" a_size = bit_size(a)" write(*,*)" if (a_size .eq. 8) then" |