Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/volatile10_pkg.ads @ 144:8f4e72ab4e11
fix segmentation fault caused by nothing next cur_op to end
author | Takahiro SHIMIZU <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Sun, 23 Dec 2018 21:23:56 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
package Volatile10_Pkg is type Num is mod 2**9; type Rec is record B1 : Boolean; N1 : Num; B2 : Boolean; N2 : Num; B3 : Boolean; B4 : Boolean; B5 : Boolean; B6 : Boolean; B7 : Boolean; B8 : Boolean; B9 : Boolean; B10 : Boolean; B11 : Boolean; B12 : Boolean; B13 : Boolean; B14 : Boolean; end record; pragma Pack (Rec); for Rec'Size use 32; pragma Volatile(Rec); function F return Rec; end Volatile10_Pkg;