! Program to test array constructors
|
! Program to test array constructors
|
program constructors
|
program constructors
|
integer, dimension (4) :: a
|
integer, dimension (4) :: a
|
integer, dimension (3, 2) :: b
|
integer, dimension (3, 2) :: b
|
integer i, j, k, l, m, n
|
integer i, j, k, l, m, n
|
|
|
a = (/1, (i,i=2,4)/)
|
a = (/1, (i,i=2,4)/)
|
do i = 1, 4
|
do i = 1, 4
|
if (a(i) .ne. i) call abort
|
if (a(i) .ne. i) call abort
|
end do
|
end do
|
|
|
b = reshape ((/0, 1, 2, 3, 4, 5/), (/3, 2/)) + 1
|
b = reshape ((/0, 1, 2, 3, 4, 5/), (/3, 2/)) + 1
|
do i=1,3
|
do i=1,3
|
if (b(i, 1) .ne. i) call abort
|
if (b(i, 1) .ne. i) call abort
|
if (b(i, 2) .ne. i + 3) call abort
|
if (b(i, 2) .ne. i + 3) call abort
|
end do
|
end do
|
|
|
k = 1
|
k = 1
|
l = 2
|
l = 2
|
m = 3
|
m = 3
|
n = 4
|
n = 4
|
! The remainder assumes constant constructors work ok.
|
! The remainder assumes constant constructors work ok.
|
a = (/n, m, l, k/)
|
a = (/n, m, l, k/)
|
if (any (a .ne. (/4, 3, 2, 1/))) call abort
|
if (any (a .ne. (/4, 3, 2, 1/))) call abort
|
a = (/((/i+10, 42/), i = k, l)/)
|
a = (/((/i+10, 42/), i = k, l)/)
|
if (any (a .ne. (/11, 42, 12, 42/))) call abort
|
if (any (a .ne. (/11, 42, 12, 42/))) call abort
|
a = (/(I, I=k,l) , (J, J=m,n)/)
|
a = (/(I, I=k,l) , (J, J=m,n)/)
|
if (any (a .ne. (/1, 2, 3, 4/))) call abort
|
if (any (a .ne. (/1, 2, 3, 4/))) call abort
|
end program
|
end program
|
|
|