------- Comment #1 from dfranke at gcc dot gnu dot org 2009-12-11 22:30 -------
I think this one is actually ok. The message is emitted rank-times, once for
each non-integer rank, for each variable.
Here we get it three times:
real, parameter :: n = 2
real, dimension(n) :: x, y, z
end
Here 4*3 = 12 times:
real, parameter :: n = 2
real, dimension(n, n, n, n) :: x, y, z
end
Here just once:
real, parameter :: n = 2
real :: x, y(n), z
end
Thus, all fine?!
--
dfranke at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |dfranke at gcc dot gnu dot
| |org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37691