1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { dg-do compile }
! { dg-options "-fmax-array-constructor=65536" }
! PR fortran/103794
program p
integer :: i, j
integer, parameter :: a(2) = 2, m = 20000
integer, parameter :: e(*) = &
[(reshape([1,2,3], (a*i)), i=1,1)] ! { dg-error "not enough elements" }
integer, parameter :: g(*,*) = &
reshape([([1,2,3,4],j=1,m)],[(a*i,i=1,1)]) ! { dg-error "number of elements" }
print *, reshape([([1,2,3,4],j=1,m)],[(a*i,i=1,1)])
print *, reshape([1,2,3], [(a*i, i=1,1)]) ! { dg-error "not enough elements" }
print *, [(reshape([1,2,3], (a*i)),i=1,1)] ! { dg-error "not enough elements" }
end
|
