2 ! { dg-options "-ffrontend-optimize -fdump-tree-original" }
3 ! PR 57071 - Check that 2**k is transformed into ishift(1,k).
7 integer, parameter :: n
=30
8 integer, dimension(-n
:n
) :: a
,b
,c
,d
,e
12 ! Test scalar expressions.
14 if (2**i
/= v
**i
) call abort
17 ! Test array constructors
20 if (any(b
/= c
)) call abort
22 ! Test array expressions
26 if (any(d
/= e
)) call abort
28 ! { dg-final { scan-tree-dump-times "_gfortran_pow_i4_i4" 3 "original" } }
29 ! { dg-final { cleanup-tree-dump "original" } }