gnu / gcc / d769c5040874bf9546f2524f3f1d2a894165f92a / . / gcc / testsuite / gnat.dg / sso / init11.ads

with System; | |

package Init11 is | |

type My_Integer is new Integer; | |

for My_Integer'Alignment use 1; | |

type Arr1 is array (1 .. 3) of My_Integer; | |

for Arr1'Scalar_Storage_Order use System.Low_Order_First; | |

type R1 is record | |

I : My_Integer; | |

A : Arr1; | |

end record; | |

for R1'Bit_Order use System.Low_Order_First; | |

for R1'Scalar_Storage_Order use System.Low_Order_First; | |

type Arr2 is array (1 .. 3) of My_Integer; | |

for Arr2'Scalar_Storage_Order use System.High_Order_First; | |

type R2 is record | |

I : My_Integer; | |

A : Arr2; | |

end record; | |

for R2'Bit_Order use System.High_Order_First; | |

for R2'Scalar_Storage_Order use System.High_Order_First; | |

My_R1 : constant R1 := (I => 16#12345678#, | |

A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); | |

My_R2 : constant R2 := (I => 16#12345678#, | |

A => (16#AB0012#, 16#CD0034#, 16#EF0056#)); | |

end Init11; |