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

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

gcc/testsuite/ChangeLog

+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

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