mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 19:49:27 +02:00
c9c1c1686c
U rtl/aarch64/mathu.inc --- Recording mergeinfo for merge of r46880 into '.': U . --- Merging r40512 into '.': A tests/webtbs/tw33607.pp --- Recording mergeinfo for merge of r40512 into '.': G . --- Merging r42961 into '.': U compiler/aarch64/aasmcpu.pas --- Recording mergeinfo for merge of r42961 into '.': G . --- Merging r44932 into '.': G compiler/aarch64/aasmcpu.pas --- Recording mergeinfo for merge of r44932 into '.': G . --- Merging r44933 into '.': U compiler/aarch64/racpugas.pas --- Recording mergeinfo for merge of r44933 into '.': G . --- Merging r44998 into '.': U compiler/aarch64/racpu.pas --- Recording mergeinfo for merge of r44998 into '.': G . --- Merging r45667 into '.': G compiler/aarch64/racpugas.pas U compiler/rautils.pas A tests/webtbs/tw37218.pp --- Recording mergeinfo for merge of r45667 into '.': G . --- Merging r45814 into '.': U compiler/aarch64/rgcpu.pas A tests/webtbs/tw37393.pp --- Recording mergeinfo for merge of r45814 into '.': G . --- Merging r46690 into '.': G compiler/aarch64/aasmcpu.pas --- Recording mergeinfo for merge of r46690 into '.': G . --- Merging r46871 into '.': U compiler/aarch64/cgcpu.pas --- Recording mergeinfo for merge of r46871 into '.': G . git-svn-id: branches/fixes_3_2@47756 -
15 lines
331 B
ObjectPascal
15 lines
331 B
ObjectPascal
{ %OPT=-O2 }
|
|
program fx;
|
|
procedure rep9(a,b,c,d, e,f,g,h, i,j,k,l: single);
|
|
begin
|
|
writeln(a, ' ', b, ' ', c, ' ', d);
|
|
writeln(e, ' ', f, ' ', g, ' ', h);
|
|
writeln(i, ' ', j, ' ', k, ' ', l);
|
|
if (i<>9) or (j<>10) or (k<>11) or (l<>12) then
|
|
halt(1);
|
|
end;
|
|
begin
|
|
rep9(1,2,3,4,5,6,7,8,9,10,11,12);
|
|
writeln('ok');
|
|
end.
|