Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/debug16.adb @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | |
children |
line wrap: on
line source
-- { dg-do compile } -- { dg-skip-if "No Dwarf" { { hppa*-*-hpux* } && { ! lp64 } } } -- { dg-options "-cargs -O0 -g -dA -fgnat-encodings=minimal -margs" } procedure Debug16 is type Number_T (Exists : Boolean := False) is record case Exists is when True => Value : Natural range 0 .. 255; when False => null; end case; end record; pragma Pack (Number_T); X : Number_T; begin X := (Exists => True, Value => 10); if X.Exists then -- STOP X.Value := X.Value + 1; end if; end; -- { dg-final { scan-assembler-times "DW_AT_discr" 4 } }