1 /* PR tree-optimization/29516 */
3 /* { dg-do compile { target fpic } } */
4 /* { dg-options "-O -ftree-vrp -fPIC -fdump-tree-ivopts" } */
6 typedef struct gfc_se
{ int pre
; } gfc_se
;
7 typedef struct gfc_ss_info
{ int dim
[7]; } gfc_ss_info
;
8 int gfc_rank_cst
[7 + 1];
13 gfc_conv_array_transpose (gfc_se
* se
) {
14 int dest
, src
, dest_index
, src_index
;
15 gfc_ss_info
*dest_info
;
17 for (n
= 0; n
< 2; n
++) {
18 dest_info
->dim
[n
] = n
;
19 src_index
= gfc_rank_cst
[1 - n
];
20 a (se
->pre
, b (dest
, dest_index
), c (src
, src_index
));
24 /* Ivopts should not produce multiplication by a pointer constant. */
26 /* { dg-final { scan-tree-dump-times "\\* \[0-9\]*B;" 0 "ivopts" } } */