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

--- Comment #32 from Thomas Koenig <tkoenig at gcc dot gnu.org> ---
(In reply to Markus Trippelsdorf from comment #31)
> Fixed. Thanks.

Is the issue with the execute_command_line_* functions
also resolved?  The code could quite obviously be simplified to

void
execute_command_line_i4 (const char *command, GFC_LOGICAL_4 *wait,
                         GFC_INTEGER_4 *exitstat, GFC_INTEGER_4 *cmdstat,
                         char *cmdmsg, gfc_charlen_type command_len,
                         gfc_charlen_type cmdmsg_len)
{
  bool w = wait ? *wait : true;
  int estat, cstat;

  if (exitstat)
    estat = *exitstat;

  execute_command_line (command, w, &estat, cmdstat ? &cstat : NULL,
                        cmdmsg, command_len, cmdmsg_len);

  if (exitstat)
    *exitstat = estat;
  if (cmdstat)
    *cmdstat = cstat;
}

but I don't know if this fixes the issue.

Reply via email to