diff options
Diffstat (limited to 'testsuites/ada/sptests/sp07/sptest.adb')
-rw-r--r-- | testsuites/ada/sptests/sp07/sptest.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/testsuites/ada/sptests/sp07/sptest.adb b/testsuites/ada/sptests/sp07/sptest.adb index e008336065..2ab9cf641b 100644 --- a/testsuites/ada/sptests/sp07/sptest.adb +++ b/testsuites/ada/sptests/sp07/sptest.adb @@ -316,6 +316,8 @@ package body SPTEST is PREVIOUS_PRIORITY : RTEMS.TASKS.PRIORITY; begin + THE_PRIORITY := 4; + loop THE_PRIORITY := THE_PRIORITY - 1; |