diff options
-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 |