From: burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Tue, 30 Nov 2010 17:00:17 +0000 (+0000)
Subject: 2010-11-30  Tobias Burnus  <burnus@net-b.de>
X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=commitdiff_plain;h=155d23aa2ddc648e5303de9f82aff56b53c6c42d

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

        * gfortran.dg/realloc_on_assign_2.f03 (invima): Assign
        a value to all array elements.



git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@167305 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index ba34ecdbe0f..0417dec504a 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2010-11-30  Tobias Burnus  <burnus@net-b.de>
+
+	* gfortran.dg/realloc_on_assign_2.f03 (invima): Assign
+	a value to all array elements.
+
 2010-11-30  Richard Guenther  <rguenther@suse.de>
 
 	PR tree-optimization/46722
diff --git a/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 b/gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03
index d2a63318f85..ddcc316e06a 100644
--- 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