From 85a7a522a5479bcfd36a98bf2648b49a12d03295 Mon Sep 17 00:00:00 2001 From: Elena Pourmal Date: Thu, 29 Mar 2007 12:15:29 -0500 Subject: [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 --- fortran/src/H5test_kind.f90 | 12 ++++++------ 1 file 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" -- cgit v0.12