! { dg-do run }
! { dg-xfail-run-if "PR libfortran/67412" { *-*-solaris2.10 } }
!
! Check that EXECUTE_COMMAND_LINE handles invalid command lines appropriately
!
  integer :: s = 0, c = 0
  character(len=255) :: msg = ""

  ! This should fail, set CMDSTAT to nonzero value, and an error message
  ! in CMDMSG.
  call execute_command_line ("/nosuchfile", exitstat=s, cmdstat=c, cmdmsg=msg)
  if (c == 0) call abort
  if (len_trim(msg) == 0) call abort

end