[PATCH] PR fortran/69395 -- don't exceed max allowed array dimensions

[Dominique d'Humières]

Steve,

With one of my variants I see

pr69395_3_db.f90:2:63:

    real, dimension(1,2,1,2,1,2,1,2), codimension[1,2,1,2,1,2,*] :: z
                                                               1
Error: Sum of array rank 8 and corank 7 at (1) exceeds maximum allowed dimensions of 15

Is this expected or should

	  if (j >= GFC_MAX_DIMENSIONS)

be replaced with

	  if (j > GFC_MAX_DIMENSIONS)

(twice)?

Cheers,

Dominique