Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/prot4.adb @ 140:4e440907fcbf
copy CbC goto flang in cfgexpand
remove some CbC unnecessary code
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Wed, 14 Nov 2018 00:24:45 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
-- { dg-do compile } procedure Prot4 is type App_Priority is (Low, Medium, High); function Alpha return App_Priority is begin return Low; end Alpha; function Beta return App_Priority is begin return High; end Beta; protected Hold is entry D7 (App_Priority range Alpha .. Beta); end Hold; protected body Hold is entry D7 (for AP in App_Priority range Alpha .. Beta) when True is begin null; end D7; end Hold; begin null; end;