Mercurial > hg > CbC > CbC_gcc

view gcc/testsuite/gnat.dg/aggr9.adb @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
line wrap: on
line source

-- { dg-do compile }
-- { dg-options "-O" }

package body Aggr9 is

  procedure Proc (X : R1) is
    M : R2 := (F => X);
  begin
    Send (M);
  end;

end Aggr9;