Fortran的2D陣列初始化

Question

下面的程序用ifort（版本12），但編譯不與GFortran（高達4.8版本）：

PROGRAM TEST 
IMPLICIT NONE 
REAL,DIMENSION(2,2)::X=(/1,2,3,4/) 

WRITE(*,*) X 

END PROGRAM TEST 

GFortran給出了錯誤

REAL,DIMENSION(2,2)::X=(/1,2,3,4/) 
         1 
Error: Incompatible ranks 2 and 1 in assignment at (1) 

Ifort編譯程序並給出預期的輸出。這是GFortran中的一個錯誤還是英特爾fortran只是允許非標準的數組初始化？

Answer 1

重新寫入數組聲明路線爲：

REAL,DIMENSION(2,2) :: X = RESHAPE([1,2,3,4],[2,2]) 

原因ifort編譯它的其他方式是非標準的實現。這是一種初始化高於1的排列數組的方法。