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
|
! { dg-do compile }
! PR fortran/103411 - ICE in gfc_conv_array_initializer
! Based on testcase by G. Steinmetz
! Test simplifications for checks of shape argument to reshape intrinsic
program p
integer :: i
integer, parameter :: a(2) = [2,2]
integer, parameter :: u(5) = [1,2,2,42,2]
integer, parameter :: v(1,3) = 2
integer, parameter :: d(2,2) = reshape([1,2,3,4,5], a)
integer, parameter :: c(2,2) = reshape([1,2,3,4], a)
integer, parameter :: b(2,2) = &
reshape([1,2,3], a) ! { dg-error "not enough elements" }
print *, reshape([1,2,3], a) ! { dg-error "not enough elements" }
print *, reshape([1,2,3,4], a)
print *, reshape([1,2,3,4,5], a)
print *, b, c, d
print *, reshape([1,2,3], [(u(i),i=1,2)])
print *, reshape([1,2,3], [(u(i),i=2,3)]) ! { dg-error "not enough elements" }
print *, reshape([1,2,3], &
[(u(i)*(-1)**i,i=2,3)]) ! { dg-error "has negative element" }
print *, reshape([1,2,3,4], u(5:3:-2))
print *, reshape([1,2,3], u(5:3:-2)) ! { dg-error "not enough elements" }
print *, reshape([1,2,3,4], u([5,3]))
print *, reshape([1,2,3] , u([5,3])) ! { dg-error "not enough elements" }
print *, reshape([1,2,3,4], v(1,2:))
print *, reshape([1,2,3], v(1,2:)) ! { dg-error "not enough elements" }
print *, reshape([1,2,3,4], v(1,[2,1]))
print *, reshape([1,2,3] , v(1,[2,1])) ! { dg-error "not enough elements" }
end
|
