diff options
| author | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-23 21:24:49 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2015-08-23 21:24:49 +0000 |
| commit | 1487cca00ca6f4e0fe60d72761737da162e96840 (patch) | |
| tree | 22c06ca665153780f25817897e0ceb0f60166df8 /gcc | |
| parent | ac9521817d7bb373be797d0181188f29ff4ab2a0 (diff) | |
| download | gcc-1487cca00ca6f4e0fe60d72761737da162e96840.zip gcc-1487cca00ca6f4e0fe60d72761737da162e96840.tar.gz gcc-1487cca00ca6f4e0fe60d72761737da162e96840.tar.bz2 | |
re PR libfortran/62296 (EXECUTE_COMMAND_LINE not F2008 conforming)
PR libfortran/62296
* intrinsics/execute_command_line.c (EXEC_INVALIDCOMMAND): New
error code.
(cmdmsg_values): New error message.
(set_cmdstat): Rework runtime error.
(execute_command_line): Handle invalid command line error status.
* gfortran.dg/execute_command_line_2.f90: New test.
From-SVN: r227105
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/execute_command_line_2.f90 | 14 |
2 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 0d06a93..35b7da2 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-08-23 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR libfortran/62296 + * gfortran.dg/execute_command_line_2.f90: New test. + 2015-08-23 Tom de Vries <tom@codesourcery.com> * gcc.dg/vect/trapv-vect-reduc-4.c: Use vect_no_int_min_max. diff --git a/gcc/testsuite/gfortran.dg/execute_command_line_2.f90 b/gcc/testsuite/gfortran.dg/execute_command_line_2.f90 new file mode 100644 index 0000000..5a4e9cc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/execute_command_line_2.f90 @@ -0,0 +1,14 @@ +! { dg-do run } +! +! 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 |