From 9cfd7f2c796f055f213d005782e74b6e542d8737 Mon Sep 17 00:00:00 2001 From: Thomas Koenig Date: Wed, 18 Oct 2017 17:54:18 +0000 Subject: re PR libfortran/82233 (execute_command_line causes program to stop when command fails (or does not exist)) 2017-10-18 Thomas Koenig 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 --- gcc/testsuite/ChangeLog | 6 ++++++ 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 + + 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 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 -- cgit v1.1