gcc/testsuite/gfortran.dg/execute_command_line_2.f90

   1 ! { dg-do run }
   2 ! { dg-xfail-run-if "PR libfortran/67412" { *-*-solaris2.10 } }
   3 !
   4 ! Check that EXECUTE_COMMAND_LINE handles invalid command lines appropriately
   5 !
   6   integer :: s = 0, c = 0
   7   character(len=255) :: msg = ""
   8
   9   ! This should fail, set CMDSTAT to nonzero value, and an error message
  10   ! in CMDMSG.
  11   call execute_command_line ("/nosuchfile", exitstat=s, cmdstat=c, cmdmsg=msg)
  12   if (c == 0) call abort
  13   if (len_trim(msg) == 0) call abort
  14
  15 end