<table border="1" cellspacing="0" cellpadding="8">
    <tr>
        <th>Issue</th>
        <td>
            <a href=https://github.com/llvm/llvm-project/issues/77979>77979</a>
        </td>
    </tr>

    <tr>
        <th>Summary</th>
        <td>
            Runtime error in intrinsic "execute_command_line" when the "cmdstat" argument is missing
        </td>
    </tr>

    <tr>
      <th>Labels</th>
      <td>
            new issue
      </td>
    </tr>

    <tr>
      <th>Assignees</th>
      <td>
      </td>
    </tr>

    <tr>
      <th>Reporter</th>
      <td>
          psteinfeld
      </td>
    </tr>
</table>

<pre>
    When I call the intrinsic "execute_command_line" and do not pass an actual argument for "cmdstat", the program gets a fatal runtime error.  Here's a program that shows the problem:
```
program bug
   implicit none
   integer :: exitstatvar, cmdstatvar
   character(len=256)            :: msg
   character(len=:), allocatable :: command
 command='notthere'
   msg=''
   exitstatvar = 216
   cmdstatvar = 343
   msg = ''
   cmdstatvar = 3
   call execute_command_line(command , wait=.false., exitstat=exitstatvar, cmdmsg=msg )
   print *, "test 2"
   print *, "cmdstat: ", cmdstatvar
 print *, "exitstat: ", exitstatvar
   print *, "msg: ", msg
end program bug
```
When I compile and execute this program, I get the output:
```
 test 2
 cmdstat:  3
 exitstat:  216
 msg: 
 
 
                            
[psteinfeld@ice4 install]$ sh: notthere: command not found

fatal Fortran runtime error(/local/home/psteinfeld/test/install/nocmdstat.f90:12): Execution error with system status code: -1
```
This does not happen when the `exitstat` or the `cmdmsg` argument is missing.
</pre>
<img width="1px" height="1px" alt="" src="http://email.email.llvm.org/o/eJyMVV2vozgM_TXhxboVGGjLAw-d7aKd19VK-zhKwUBWIUGJuZ3596tQKMz9GA2qivJh-_j42EjvVWeISpF_Efk1khP31pWjZ1KmJd1EN9v8KP_tycBXqKXWwD2BMuyU8aoGgUjfqZ6YvtV2GKRpvmllSCCCNA00FoxlGKX3IA3ImiepQbpuGsgwtNYFD_XQeJYsEAX-MQcYne2cHKAj9iChlSw1uMmwGgjIOesOAH-RI4GncGG9z71k8L29-9XNTdMg0ouIryK-iGO8_OblanWbuscGAKhh1KpWDMYa2nYNU0cOgqf0AvRdcUD8Kl1AvOAPq9Wg7qWTNZMTeNZkRHrF_CiwgN2zOBt89wuzcAmLEEVqbWvJ8qZpNV0oX8zXVXoVeDKWuX8Q9PQeIs2H-81dLiDSK2By3OA8E5uP0izd-5r33nh7a7EdBO18LJXzsoSQ5V0qFun10Ert6RB2VoAivb7n_ZHSDAaLZ7DRKcMg8BJuCUQmz4BBX5_dWCWYXmCR4buivjXZcD1t9vg-izQjflo8i0-mgXd6fKPXtQ3tMCpNc4MtjAL3yq_2we_X0DpzD9iJx4k_awFYqFkUtLHwLN0-zZ041jQeq59fv3gWEPmXbcSILFY1ZaCMZ6m1yK8CM_B9cP9U8Sb2eaC0dlpl__h_TIjKOnbS_DwpBJ4FVqF3tMCqtwMJrHbhsQocCKxWAFgZuzBxaItYpJcEg7rSC_w5062sebiGu-Ie_A_PNEC4P3mobTPDfUk-JPyfUKjGkp_z6OU4koF7KGwoljjGT76PMVi37i5SP8bb8FQeBuW9Mt0hasq0KdJCRlQmpziPCzwm56gvTyfZSJTHtG3z4tY0bVrXmCdUZ1mdJHUWqRJjzOIkQYzzODkf2iRL0lPaZgXFTVEUIotpkEoftH4dDtZ1kfJ-ovJ0Kk5FpOWNtJ-_HoiG7jAfBm3n18iVweblNnVeZLFWnv3mhRVrKv_eFwqU-b0vy0bX_tvxETPR5HTZM49-nqOVwKpT3E-3Q22HoAr9ur5eRmf_o3oWQkjCC6zmJP8PAAD__420MI0">