URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gnat.dg/] [task_stack_align.adb] - Rev 304
Compare with Previous | Blame | View Log
-- { dg-do run } with Ada.Text_IO; use Ada.Text_IO; with System.Storage_Elements; use System.Storage_Elements; procedure Task_Stack_Align is type Align_Me is record Value : Integer; end record; for Align_Me'Alignment use Standard'Maximum_Alignment; procedure Check_Local_Alignment_From (Context : String) is Object : Align_Me; begin if To_Integer (Object'Address) mod Object'Alignment /= 0 then Put_Line ("alignment check failed in " & Context); end if; end; task type T; task body T is begin Check_Local_Alignment_From ("task T"); end; Tasks : array (1 .. 50) of T; begin Check_Local_Alignment_From ("environment"); end;