diff options
Diffstat (limited to 'gcc/testsuite/gnat.dg/test_prio_p.ads')
| -rw-r--r-- | gcc/testsuite/gnat.dg/test_prio_p.ads | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gnat.dg/test_prio_p.ads b/gcc/testsuite/gnat.dg/test_prio_p.ads new file mode 100644 index 000000000..f6dcaa8eb --- /dev/null +++ b/gcc/testsuite/gnat.dg/test_prio_p.ads @@ -0,0 +1,12 @@ +with System; with Unchecked_Conversion; +package test_prio_p is + type Task_Priority_T is new Natural; + function Convert_To_System_Priority is + new Unchecked_Conversion (Task_Priority_T, System.Priority); + protected type Protected_Queue_T( PO_Priority : Task_Priority_T ) is + pragma Priority (Convert_To_System_Priority (PO_Priority )); + entry Seize; + end Protected_Queue_T; + Sema1 : protected_Queue_T (5); + Sema2 : protected_Queue_T (10); +end test_prio_p; |