From ca474dfe9e5bc93001b34ee6c2cf606cfa073eb1 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 30 Nov 2010 18:00:17 +0100 Subject: [PATCH] realloc_on_assign_2.f03 (invima): Assign a value to all array elements. 2010-11-30 Tobias Burnus * gfortran.dg/realloc_on_assign_2.f03 (invima): Assign a value to all array elements. From-SVN: r167305 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 | 1 + 2 files changed, 6 insertions(+) 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 + + * gfortran.dg/realloc_on_assign_2.f03 (invima): Assign + a value to all array elements. + 2010-11-30 Richard Guenther 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 -- 2.30.2