1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3
4!Tests for RESHAPE
5program reshaper
6  ! RESHAPE with arguments SOURCE and SHAPE
7  integer, parameter :: array1(2,3) = RESHAPE([(n, n=1,6)], [2,3])
8  ! RESHAPE with arguments SOURCE, SHAPE, and PAD
9  integer :: array2(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99])
10  ! RESHAPE with arguments SOURCE, SHAPE, PAD, and ORDER
11  integer :: array3(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99], [2, 1])
12  !ERROR: Too few elements in 'source=' argument and 'pad=' argument is not present or has null size
13  integer :: array4(2,3) = RESHAPE([(n, n=1,5)], [2,3])
14  !ERROR: Actual argument for 'shape=' has bad type 'REAL(4)'
15  integer :: array5(2,3) = RESHAPE([(n, n=1,6)], [2.2,3.3])
16  !ERROR: 'shape=' argument must be an array of rank 1
17  integer :: array6(2,3) = RESHAPE([(n, n=1,6)], RESHAPE([(n, n=1,6)], [2,3]))
18  !ERROR: 'shape=' argument must be an array of rank 1
19  integer :: array7(2,3) = RESHAPE([(n, n=1,4)], 343)
20  !ERROR: Actual argument for 'pad=' has bad type or kind 'INTEGER(8)'
21  integer :: array8(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99_8])
22  !ERROR: Actual argument for 'pad=' has bad type or kind 'REAL(4)'
23  real :: array9(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99.9])
24  !ERROR: Invalid 'order=' argument in RESHAPE
25  real :: array10(2,3) = RESHAPE([(n,n=1,4)],[2,3],[99],[2,3])
26  !ERROR: Actual argument for 'order=' has bad type 'REAL(4)'
27  real :: array11(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99], [2.2,3.3])
28  !ERROR: Invalid 'order=' argument in RESHAPE
29  real :: array12(2,3) = RESHAPE([(n, n=1,4)], [2,3], [99], [1])
30  !ERROR: Invalid 'order=' argument in RESHAPE
31  real :: array13(2,3) = RESHAPE([(n, n = 1, 4)], [2, 3], [99], [1, 1])
32
33  ! Examples that have caused problems
34  integer :: array14(0,0,0) = RESHAPE([(n,n=1,0)],[0,0,0])
35  integer, parameter :: array15(1) = RESHAPE([(n,n=1,2)],[1])
36  integer, parameter :: array16(1) = RESHAPE([(n,n=1,8)],[1], [0], array15)
37  integer, parameter, dimension(3,4) :: array17 = 3
38  integer, parameter, dimension(3,4) :: array18 = RESHAPE(array17, [3,4])
39  ! Implicit reshape of array of components
40  type :: dType
41    integer :: field(2)
42  end type dType
43  type(dType), parameter :: array19(*) = [dType::dType(field=[1,2])]
44  logical, parameter :: lVar = all(array19(:)%field(1) == [2])
45
46  !ERROR: Size of 'shape=' argument must not be greater than 15
47  CALL ext_sub(RESHAPE([(n, n=1,20)], &
48    [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]))
49  !ERROR: 'shape=' argument must not have a negative extent
50  CALL ext_sub(RESHAPE([(n, n=1,20)], [1, -5, 3]))
51end program reshaper
52