gcc/testsuite/gnat.dg/opt58_pkg.ads

   1 with System; use System;
   2
   3 package Opt58_Pkg is
   4
   5    pragma Pure (Opt58_Pkg);
   6
   7    type Small_Int is range 0 .. 255;
   8
   9    type Rec is record
  10      D1, D2, D3, D4 : Small_Int;
  11    end record;
  12    pragma Pack (Rec);
  13    for Rec'Size use 32;
  14
  15    function F1 (R : Rec) return Small_Int;
  16
  17    function F2 (A : Address; B : Boolean) return Boolean;
  18
  19 end Opt58_Pkg;