FORTRAN矩阵的初始赋值,该怎么处理

FORTRAN矩阵的初始赋值
PROGRAM MAIN
IMPLICIT NONE
  INTEGER::A(2,2)=(/ 1,2,3,4 /)
END

教科书上是这样赋值，为什么我这样作会报错。

Error:Incompatible ranks in assignment。

编译器用的是G95

[解决办法]
INTEGER::A(2,2)=(/ 1,2,3,4 /)
你没有前面给出dimension.
[解决办法]
INTEGER::A(2,2)=(/ 1,2,3,4 /)
即使已经有数组维数声明，这里的式子左边也仅仅是一个数组元素，不匹配。