[gfortran] PATCH Fix PR 20058

[Tobias Schlüter]

Steve Kargl wrote:
> @@ -132,6 +136,9 @@
>        gfc_logical_kinds[i_index].kind = kind;
>        gfc_logical_kinds[i_index].bit_size = bitsize;
>  
> +      if (kind > gfc_max_integer_kind)
> +	gfc_max_integer_kind = kind;
> +
>        i_index += 1;
>      }
>  
Minor suggestion: you could just put
  gfc_max_integer_kind = gfc_integer_kinds[i_index - 1].kind;
after the loop because IIUC the loop will always go from lowest bit-width to
largest.

- Tobi