mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-02-23 04:09:14 +08:00
Code Issues Packages Projects Releases Wiki Activity

realloc_on_assign_2.f03 (invima): Assign a value to all array elements.

Browse Source 
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
This commit is contained in:
Tobias Burnus 2010-11-30 18:00:17 +01:00 committed by Tobias Burnus
parent 4dbed5f6d4
commit ca474dfe9e
2 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View File

@ -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

1
gcc/testsuite/gfortran.dg/realloc_on_assign_2.f03
View File

@ -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