(j3.2006) Should this work?

[Jim Xia]

j3-bounces at j3-fortran.org wrote on 05/08/2008 10:13:49 PM:

> 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?

Right, the expression size(shape(a)) contains a dummy argument.  It is a 
specification expression but not initialization expression even though we 
know its declaration is rank 2 array.

Cheers,

Jim Xia

RL Fortran Compiler Test
IBM Toronto Lab at 8200 Warden Ave, Markham, On, L6G 1C7
Phone (905) 413-3444  Tie-line 313-3444
email: jimxia at ca.ibm.com
D2/YF7/8200 /MKM
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://j3-fortran.org/pipermail/j3/attachments/20080509/0c46b628/attachment.html