diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/execute_command_line_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/execute_command_line_3.f90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 b/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 index c1790d801f3..7db17c25291 100644 --- a/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 +++ b/gcc/testsuite/gfortran.dg/execute_command_line_3.f90 @@ -10,14 +10,14 @@ character(len=:), allocatable :: command msg='' ! seems to only be defined if exitstatus.ne.0 ! ok -- these work call execute_command_line(command , wait=.false., exitstat=i, cmdstat=j, cmdmsg=msg) - if (j /= 0 .or. msg /= '') call abort + if (j /= 0 .or. msg /= '') STOP 1 call execute_command_line(command , exitstat=i, cmdstat=j, cmdmsg=msg ) - if (j /= 3 .or. msg /= "Invalid command line" ) call abort + if (j /= 3 .or. msg /= "Invalid command line" ) STOP 2 msg = '' call execute_command_line(command , wait=.false., exitstat=i, cmdmsg=msg ) - if (j /= 3) call abort + if (j /= 3) STOP 3 call execute_command_line(command , wait=.false., exitstat=i ) - if (msg /= '') call abort + if (msg /= '') STOP 4 call execute_command_line(command , exitstat=i, cmdstat=j ) end program boom |