(j3.2006) Should this work?

Van Snyder Van.Snyder
Thu May 8 22:13:49 EDT 2008

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.

More information about the J3 mailing list