diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2012-06-15 10:41:13 +0000 |
|---|---|---|
| committer | Eric Botcazou <ebotcazou@gcc.gnu.org> | 2012-06-15 10:41:13 +0000 |
| commit | f71d5704ba64939d2e70d055659cb2d72cbce40e (patch) | |
| tree | 148a3d7dce2cb42680ee7534e42f3dec39e30ca7 /gcc/testsuite | |
| parent | 2da02156af964dbd197f19cbd7fea003a73aacb3 (diff) | |
| download | gcc-f71d5704ba64939d2e70d055659cb2d72cbce40e.zip gcc-f71d5704ba64939d2e70d055659cb2d72cbce40e.tar.gz gcc-f71d5704ba64939d2e70d055659cb2d72cbce40e.tar.bz2 | |
re PR ada/53592 (ICE on assignment to component of vector_type)
PR ada/53592
* gcc-interface/gigi.h (maybe_vector_array): Make static inline.
* gcc-interface/utils.c (maybe_vector_array): Delete.
* gcc-interface/trans.c (gnat_to_gnu) <N_Indexed_Component>: Mark the
array object as addressable if it has vector type and is on the LHS.
From-SVN: r188653
Diffstat (limited to 'gcc/testsuite')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/vect8.adb | 11 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/vect8.ads | 10 |
3 files changed, 25 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2360767..5efced7 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2012-06-15 Eric Botcazou <ebotcazou@adacore.com> + + * gnat.dg/vect8.ad[sb]: New test. + 2012-06-14 Richard Guenther <rguenther@suse.de> * gcc.dg/tree-ssa/vrp.h: New testcase. diff --git a/gcc/testsuite/gnat.dg/vect8.adb b/gcc/testsuite/gnat.dg/vect8.adb new file mode 100644 index 0000000..b13555a --- /dev/null +++ b/gcc/testsuite/gnat.dg/vect8.adb @@ -0,0 +1,11 @@ +package body Vect8 is + + function Foo (V : Vec) return Vec is + Ret : Vec; + begin + Ret (1) := V (1) + V (2); + Ret (2) := V (1) - V (2); + return Ret; + end; + +end Vect8; diff --git a/gcc/testsuite/gnat.dg/vect8.ads b/gcc/testsuite/gnat.dg/vect8.ads new file mode 100644 index 0000000..5406c70 --- /dev/null +++ b/gcc/testsuite/gnat.dg/vect8.ads @@ -0,0 +1,10 @@ +-- { dg-do compile } + +package Vect8 is + + type Vec is array (1 .. 2) of Long_Float; + pragma Machine_Attribute (Vec, "vector_type"); + + function Foo (V : Vec) return Vec; + +end Vect8; |