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
