libgfortran/intrinsics/execute_command_line.c

188   int estat, estat_initial, cstat;
191     estat_initial = estat = *exitstat;
193   execute_command_line (command, w, &estat, cmdstat ? &cstat : NULL,
196   if (exitstat && estat != estat_initial)
197     *exitstat = estat;
217   int estat, estat_initial, cstat;
220     estat_initial = estat = *exitstat;
222   execute_command_line (command, w, &estat, cmdstat ? &cstat : NULL,
225   if (exitstat && estat != estat_initial)
226     *exitstat = estat;