Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/discr29.ads @ 144:8f4e72ab4e11

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 Discr29 is

   type Rec1 is record
      I1 : Integer;
      I2 : Integer;
      I3 : Integer;
   end record;

   type Rec2 is tagged record
      I1 : Integer;
      I2 : Integer;
   end record;

   type Rec3 (D : Boolean) is record
      case D is
         when True =>  A : Rec1;
         when False => B : Rec2;
      end case;
   end record;

   procedure Proc (R : out Rec3);

   Tmp : Rec2;

end Discr29;