procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR libfortran/82233 (execute_command_line causes program to stop when command fails (or does not exist))

Browse source 
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
This commit is contained in:
Thomas Koenig 2017-10-18 17:54:18 +00:00
parent 57d69a633c
commit 9cfd7f2c79
2 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/ChangeLog
View file

@ -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

5
gcc/testsuite/gfortran.dg/execute_command_line_3.f90
View file

@ -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