summaryrefslogtreecommitdiffstats
path: root/fortran/src
diff options
context:
space:
mode:
authorElena Pourmal <epourmal@hdfgroup.org>2007-03-29 17:15:29 (GMT)
committerElena Pourmal <epourmal@hdfgroup.org>2007-03-29 17:15:29 (GMT)
commit85a7a522a5479bcfd36a98bf2648b49a12d03295 (patch)
treec1ea03ccc03906847400fae2915fa9cb2e91f08c /fortran/src
parent0975f08d7ee0366fd0c648a04f32380aa8cd1938 (diff)
downloadhdf5-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/src')
-rw-r--r--fortran/src/H5test_kind.f9012
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"