diff options
author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-10-18 17:54:18 +0000 |
---|---|---|
committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2017-10-18 17:54:18 +0000 |
commit | 9cfd7f2c796f055f213d005782e74b6e542d8737 (patch) | |
tree | bd2f1d9140c58109144a471eed809f96a98d06c3 /gcc | |
parent | 57d69a633c9226fce5ea2fb728c2e817733a150c (diff) | |
download | gcc-9cfd7f2c796f055f213d005782e74b6e542d8737.zip gcc-9cfd7f2c796f055f213d005782e74b6e542d8737.tar.gz gcc-9cfd7f2c796f055f213d005782e74b6e542d8737.tar.bz2 |
re PR libfortran/82233 (execute_command_line causes program to stop when command fails (or does not exist))
2017-10-18 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/82233
* gfortran.dg/execute_command_line_3.f90: Remove unneeded output.
Move test with wait=.false. before the last test.
From-SVN: r253865
Diffstat (limited to 'gcc')
-rw-r--r-- | gcc/testsuite/ChangeLog | 6 | ||||
-rw-r--r-- | gcc/testsuite/gfortran.dg/execute_command_line_3.f90 | 5 |
2 files changed, 8 insertions, 3 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 42cdbd6..7009460 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2017-10-18 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR libfortran/82233 + * gfortran.dg/execute_command_line_3.f90: Remove unneeded output. + Move test with wait=.false. before the last test. + 2017-10-18 Vladimir Makarov <vmakarov@redhat.com> PR middle-end/82556 diff --git a/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 b/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 index 87d73d1..c1790d8 100644 --- a/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 +++ b/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 @@ -15,10 +15,9 @@ character(len=:), allocatable :: command if (j /= 3 .or. msg /= "Invalid command line" ) call abort msg = '' call execute_command_line(command , wait=.false., exitstat=i, cmdmsg=msg ) - print *,msg - if (msg /= '') call abort - call execute_command_line(command , exitstat=i, cmdstat=j ) if (j /= 3) call abort call execute_command_line(command , wait=.false., exitstat=i ) + if (msg /= '') call abort + call execute_command_line(command , exitstat=i, cmdstat=j ) end program boom |