diff options
| author | Tobias Burnus <burnus@net-b.de> | 2010-11-30 18:00:17 +0100 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2010-11-30 18:00:17 +0100 |
| commit | ca474dfe9e5bc93001b34ee6c2cf606cfa073eb1 (patch) | |
| tree | f80299d6cdba7be1b8d7032f8ae61713242ff667 | |
| parent | 4dbed5f6d4fd0e9ffa797e3b1b5d0ae479e7e6c5 (diff) | |
| download | gcc-ca474dfe9e5bc93001b34ee6c2cf606cfa073eb1.zip gcc-ca474dfe9e5bc93001b34ee6c2cf606cfa073eb1.tar.gz gcc-ca474dfe9e5bc93001b34ee6c2cf606cfa073eb1.tar.bz2 | |
realloc_on_assign_2.f03 (invima): Assign a value to all array elements.
2010-11-30 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/realloc_on_assign_2.f03 (invima): Assign
a value to all array elements.
From-SVN: r167305
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03 | 1 |
2 files changed, 6 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ba34ecd..0417dec 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 d2a6331..ddcc316 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 |