[Bug fortran/83731] PDT length parameter incorrectly rejected at run-time with -fcheck=bounds

[pault at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83731

Paul Thomas <pault at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |pault at gcc dot gnu.org
           Assignee|unassigned at gcc dot gnu.org      |pault at gcc dot gnu.org

--- Comment #2 from Paul Thomas <pault at gcc dot gnu.org> ---
total (struct Pdtvec & restrict a)
{
  integer(kind=4) __result_total;

  if (a->k != 10)
    {
      _gfortran_runtime_error_at (&"In file \'../pr83731/pr83731.f90\', around
line 15"[1]{lb: 1 sz: 1}, &"The value of the PDT LEN parameter \'%s\' does not
agree with that in the dummy declaration"[1]{lb: 1 sz: 1}, &"k"[1]{lb: 1 sz:
1});
    }
.....

Bother! It's comparing k with the default initializer.

I have taken it and will look at this once I have committed the fix for
PR83611.

Thanks for the report.

Paul