145
|
1 ! { dg-do run }
|
|
2 ! { dg-additional-options "-fdump-tree-original" }
|
|
3 ! PR 85544 - this used to ICE.
|
|
4 program p
|
|
5 integer, parameter :: na = -3, ne = 10
|
|
6 integer :: i, a(na:ne), b(na:ne)
|
|
7 integer :: v
|
|
8 a = [(i, i=na, ne)]
|
|
9 b = [2**a]
|
|
10 if (any (b /= [0,0,0,1,2,4,8,16,32,64,128,256,512,1024])) stop 1
|
|
11 b = [1**a]
|
|
12 if (any (b /= 1)) stop 2
|
|
13 b = [(-1)**a]
|
|
14 if (any (b /= [-1,1,-1,1,-1,1,-1,1,-1,1,-1,1,-1,1]) )stop 3
|
|
15 b = [8**a]
|
|
16 if (any (b /= [0,0,0,1,8,64,512,4096,32768,262144,2097152,16777216,&
|
|
17 134217728,1073741824])) stop 4
|
|
18 b = [4**a]
|
|
19 if (any (b /= [0,0,0,1,4,16,64,256,1024,4096,16384,65536,262144,1048576])) stop 5
|
|
20
|
|
21 v = 1
|
|
22 do i=1,6
|
|
23 v = v * 16
|
|
24 if (v /= 16**i) stop 6
|
|
25 end do
|
|
26 end program p
|
|
27 ! { dg-final { scan-tree-dump-not "_gfortran_pow" "original" } }
|