(j3.2006) Should this work?

[Van Snyder]

I tried this little program using three compilers on Linux:

subroutine foo ( a )
  real :: a ( :, : )
  integer, parameter :: b = size(shape(a))
end subroutine foo

Two were happy, one wasn't.

It seems the value given for B is not an initialization expression.

So this shouldn't work, right?

-- 
Van Snyder                    |  What fraction of Americans believe 
Van.Snyder at jpl.nasa.gov       |  Wrestling is real and NASA is fake?
Any alleged opinions are my own and have not been approved or
disapproved by JPL, CalTech, NASA, the President, or anybody else.