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];
9 gfc_conv_array_transpose (gfc_se
* se
) {
10 int dest
, src
, dest_index
, src_index
;
11 gfc_ss_info
*dest_info
;
13 for (n
= 0; n
< 2; n
++) {
14 dest_info
->dim
[n
] = n
;
15 src_index
= gfc_rank_cst
[1 - n
];
16 a (se
->pre
, b (dest
, dest_index
), c (src
, src_index
));
20 /* Ivopts should not produce multiplication by a pointer constant. */
22 /* { dg-final { scan-tree-dump-times "\\* \[0-9\]*B;" 0 "ivopts" } } */
23 /* { dg-final { cleanup-tree-dump "ivopts" } } */