Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gnat.dg/loop_optimization13.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 "-O" } with Loop_Optimization13_Pkg; use Loop_Optimization13_Pkg; package body Loop_Optimization13 is function F (A : Rec) return Rec is N : constant Integer := A.V'Length / L; Res : Rec := (True, new Complex_Vector' (0 .. A.V'Length / L - 1 => (0.0, 0.0))); begin for I in 0 .. L - 1 loop for J in 0 .. N - 1 loop Res.V (J) := Res.V (J) + A.V (I * N + J); end loop; end loop; return Res; end; end Loop_Optimization13;