1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
! { dg-do compile }
! { dg-options "-fmax-array-constructor=65536 -fdump-tree-original" }
! PR fortran/103794
program p
integer :: i, j
integer, parameter :: a(2) = 2
integer, parameter :: e(*) = [(reshape([1,2,3,4], (a*i)), i=1,1)]
integer, parameter :: f(*,*) = reshape([1,2,3,4], [(a*i, i=1,1)])
integer, parameter :: g(*,*) = reshape([([1,2,3,4],j=1,16383)],[(a*i,i=1,1)])
integer, parameter :: s1(*) = &
shape(reshape([([1,2,3,4],j=1,16383)],[(a*i,i=1,1)]))
logical, parameter :: l1 = all (e == [1,2,3,4])
logical, parameter :: l2 = all (f == reshape([1,2,3,4],[2,2]))
logical, parameter :: l3 = size (s1) == 2 .and. all (s1 == 2)
logical, parameter :: l4 = all (f == g)
print *, e
print *, f
if (.not. l1) stop 1
if (.not. l2) stop 2
if (.not. l3) stop 3
if (.not. l4) stop 4
if (any (shape (reshape([1,2], [([2]*i, i=1,1)])) /= 2)) stop 5
! The following is compile-time simplified due to shape():
print *, shape(reshape([([1,2,3,4],j=1,20000)],[(a*i,i=1,1)]))
if (any (shape(reshape([([1,2,3,4],j=1,20000)],[(a*i,i=1,1)])) /= 2)) stop 6
if (any (reshape([([1,2,3,4],j=1,16383)],[(a*i,i=1,1)]) /= f)) stop 7
! The following is not compile-time simplified:
print *, reshape([([1,2,3,4],j=1,20000)],[(a*i,i=1,1)])
if (any (reshape([([1,2,3,4],j=1,20000)],[(a*i,i=1,1)]) /= f)) stop 8
end
! { dg-final { scan-tree-dump-times "_gfortran_reshape_4" 2 "original" } }
! { dg-final { scan-tree-dump-times "_gfortran_stop_numeric" 1 "original" } }
|
