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