2010-11-30 Tobias Burnus <burnus@net-b.de>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / realloc_on_assign_2.f03

diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 b/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03
index d2a6331..ddcc316 100644 (file)
--- a/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03
+++ b/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03
@@ -114,6 +114,7 @@ contains
     real, dimension (1:m,1:m)              :: invima
     real, dimension (1:m,1:m), intent (in) :: a
     integer, intent (in)            :: j, k
+    invima = 0.0
     invima (j, j) = 1.0 / (1.0 - a (j, j))
   end function invima
   subroutine test6