re PR libfortran/82233 (execute_command_line causes program to stop when command...

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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 42cdbd6b61a6653b9e8afd51aa670905a41f4213..7009460ec649ba6fbf7253c1a9582bb9f805b631 100644 (file)
--- 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 87d73d1b50f98c0bce3f7e55f7095b3e57e7197a..c1790d801f374e70a4c9ab02e640c2112aa0ab59 100644 (file)
--- 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