diff options
| author | Zdenek Dvorak <dvorakz@suse.cz> | 2007-01-12 01:17:50 +0100 |
|---|---|---|
| committer | Zdenek Dvorak <rakdver@gcc.gnu.org> | 2007-01-12 00:17:50 +0000 |
| commit | 820410e0d5f0726b17c98ed28ff4bdb52d4ec3a6 (patch) | |
| tree | 4f0ceeb55e07fcd9ef99ed14270909b4ee266f73 /gcc/testsuite/gcc.dg | |
| parent | 2d3cb33a102caf5615263011a3a35ff7149b482a (diff) | |
| download | gcc-820410e0d5f0726b17c98ed28ff4bdb52d4ec3a6.zip gcc-820410e0d5f0726b17c98ed28ff4bdb52d4ec3a6.tar.gz gcc-820410e0d5f0726b17c98ed28ff4bdb52d4ec3a6.tar.bz2 | |
re PR tree-optimization/29516 (gfortran miscompiled)
PR tree-optimization/29516
* tree-ssa-address.c (tree_mem_ref_addr, add_to_parts,
most_expensive_mult_to_index, addr_to_parts,
create_mem_ref, maybe_fold_tmr): Make the type of
fields of TARGET_MEM_REF sizetype.
(move_fixed_address_to_symbol, move_pointer_to_base):
New functions.
* tree.def (TARGET_MEM_REF): Add comment on types of
the operands.
* gcc.dg/tree-ssa/loop-20.c: New test.
From-SVN: r120695
Diffstat (limited to 'gcc/testsuite/gcc.dg')
| -rw-r--r-- | gcc/testsuite/gcc.dg/tree-ssa/loop-20.c | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc/testsuite/gcc.dg/tree-ssa/loop-20.c b/gcc/testsuite/gcc.dg/tree-ssa/loop-20.c new file mode 100644 index 0000000..24524a0 --- /dev/null +++ b/gcc/testsuite/gcc.dg/tree-ssa/loop-20.c @@ -0,0 +1,23 @@ +/* PR tree-optimization/29516 */ + +/* { dg-do compile { target fpic } } */ +/* { dg-options "-O -ftree-vrp -fPIC -fdump-tree-ivopts" } */ + +typedef struct gfc_se { int pre; } gfc_se; +typedef struct gfc_ss_info { int dim[7]; } gfc_ss_info; +int gfc_rank_cst[7 + 1]; +gfc_conv_array_transpose (gfc_se * se) { + int dest, src, dest_index, src_index; + gfc_ss_info *dest_info; + int n; + for (n = 0; n < 2; n++) { + dest_info->dim[n] = n; + src_index = gfc_rank_cst[1 - n]; + a (se->pre, b (dest, dest_index), c (src, src_index)); + } +} + +/* Ivopts should not produce multiplication by a pointer constant. */ + +/* { dg-final { scan-tree-dump-times "\\* \[0-9\]*B;" 0 "ivopts" } } */ +/* { dg-final { cleanup-tree-dump "ivopts" } } */ |