Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/asynch.adb @ 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 | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } package body asynch is function null_ctrl return t_ctrl is begin return (Ada.Finalization.Controlled with stuff => 0); end null_ctrl; procedure Proc (msg : String; c : t_ctrl := null_ctrl) is begin null; end Proc; task type tsk; task body tsk is begin select delay 10.0; Proc ("A message."); then abort null; end select; end tsk; end asynch;