Assignment between arrays of size 1

[tplaakso]

Hi,

Maybe the following should compile:
[fortran]program test integer, dimension(1) :: x, y x = 1 y(1) = x end program test [/fortran] Instead, I get (OSX):
[plain][octopus] misc > ifort --version ifort (IFORT) 12.1.3 20120130 Copyright (C) 1985-2012 Intel Corporation. All rights reserved. [octopus] misc > ifort -free test.f test.f(6): error #6366: The shapes of the array expressions do not conform. y(1) = x --^ compilation aborted for test.f (code 1) [/plain]
Teemu Laakso

[tplaakso]

Sorry, my mistake. y(1)=x should be written y(1:1)=x, of course. No problem here, whatsoever.

Teemu

[Steven_L_Intel1]

Or better:

y=x

[tplaakso]

True. For me, this silly example reminded that the correct way to extrapolate to smaller subarray size is x(1:3), x(1:2), and x(1:1) - NOT x(1).

x(1:1) is rank 1 and x(1) is rank 0.

Teemu