Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/debug8.adb @ 138:fc828634a951
merge
author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 08 Nov 2018 14:17:14 +0900 |
parents | 04ced10e8804 |
children |
line wrap: on
line source
-- { dg-do compile } -- { dg-options "-cargs -g -fgnat-encodings=minimal -dA -margs" } -- { dg-final { scan-assembler-not "DW_OP_const4u" } } -- { dg-final { scan-assembler-not "DW_OP_const8u" } } -- The DW_AT_byte_size attribute DWARF expression for the -- DW_TAG_structure_type DIE that describes Rec_Type contains the -4u literal. -- Check that it is not created using an inefficient encoding (DW_OP_const1s -- is expected). procedure Debug8 is type Rec_Type (I : Integer) is record B : Boolean; case I is when 0 => null; when 1 .. 10 => C : Character; when others => N : Natural; end case; end record; R : access Rec_Type := null; begin null; end Debug8;