view gcc/testsuite/gnat.dg/test_prio_p.adb @ 143:76e1cf5455ef

add cbc_gc test
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Sun, 23 Dec 2018 19:24:05 +0900
parents 04ced10e8804
children
line wrap: on
line source

-- { dg-options "-gnatws" }

package body test_prio_p is
   protected body Protected_Queue_T is
      entry Seize when True is begin null; end;
   end Protected_Queue_T;
end test_prio_p;