Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gnat.dg/array11.adb @ 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 | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 -- { dg-do compile } |
2 | |
131 | 3 with System; |
4 | |
111 | 5 procedure Array11 is |
6 | |
7 type Rec is null record; | |
131 | 8 type Index_T is mod System.Memory_Size; |
111 | 9 |
131 | 10 type Arr1 is array (1 .. 8) of aliased Rec; -- { dg-warning "padded" } |
11 type Arr2 is array (Index_T) of aliased Rec; -- { dg-warning "padded" } | |
111 | 12 |
13 A1 : Arr1; | |
131 | 14 A2 : Arr2; |
111 | 15 |
16 begin | |
17 null; | |
18 end; |