1 files changed, 15 insertions, 0 deletions
diff --git a/c/src/ada/rtems.adb b/c/src/ada/rtems.adb
index 9bd7432be1..7a58956617 100644
--- a/c/src/ada/rtems.adb
+++ b/c/src/ada/rtems.adb
@@ -429,6 +429,21 @@ package body RTEMS is
       Result := Task_Resume_Base ( ID );
 
    end Task_Resume;
+
+   procedure Task_Is_Suspended (
+      ID     : in     RTEMS.ID;
+      Result :    out RTEMS.Status_Codes
+   ) is
+      function Task_Is_Suspended (
+         ID : RTEMS.ID
+      )  return RTEMS.Status_Codes;
+      pragma Import (C, Task_Is_Suspended_Base, "rtems_task_is_suspended");
+   begin
+
+      Result := Task_Is_Suspended_Base ( ID );
+
+   end Task_Is_Suspended;
+
  
    procedure Task_Set_Priority (
       ID           : in     RTEMS.ID;