Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/execute_command_line_2.f90 @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! ! Check that EXECUTE_COMMAND_LINE handles invalid command lines appropriately ! integer :: s = 0, c = 0 character(len=255) :: msg = "" ! This should fail, set CMDSTAT to nonzero value, and an error message ! in CMDMSG. call execute_command_line ("/nosuchfile", exitstat=s, cmdstat=c, cmdmsg=msg) if (c == 0) STOP 1 if (len_trim(msg) == 0) STOP 2 end