arry constant initialization

I want to declare an array constant, such as:

double precision, parameter :: a(2,3) = (/1.D0, 2.D0, 3.D0, 4.D0, 5.D0, 6.D0 /).

This is OK with ifort, but it does not work with pgi, anyone can tell me why?



The shape of a and (/1,2,3,4,5,6/) do not match.

double precision,parameter :: a(2,3) = reshape((/1,2,3,4,5,6/),(/2,3/))

works in both ifort and pgf90

Thanks, yes, it works.