paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 05:09:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added header

Browse Source
This commit is contained in:
carl 2001-06-12 01:12:34 +00:00
parent f855dff46d
commit f48ec4a18f
1 changed files with 29 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
tests/test/cg/taddreal.pp
View File

@ -1,9 +1,28 @@
{ Program to test Code generator secondadd() } {****************************************************************}
{ with floating point values } { CODE GENERATOR TEST PROGRAM }
{ FUNCTIONAL PRE-REQUISITES: } {****************************************************************}
{ - assignments function correctly. } { NODE TESTED : secondadd() FPU real type code }
{ - if statements function correctly. } {****************************************************************}
{ - subroutine calls function correctly. } { PRE-REQUISITES: secondload() }
{ secondassign() }
{ secondtypeconv() }
{****************************************************************}
{ DEFINES: }
{ FPC = Target is FreePascal compiler }
{****************************************************************}
{ REMARKS: }
{ }
{ }
{ }
{****************************************************************}
{ Result is either LOC_FPU or LOC_REFERENCE }
{ LEFT NODE (operand) (left operator) }
{ LOC_REFERENCE / LOC_MEM }
{ LOC_FPU }
{ RIGHT NODE (operand) }
{ LOC_FPU }
{ LOC_REFERENCE / LOC_MEM }
{$E-} {$E-}
Procedure RealTestSub; Procedure RealTestSub;
@ -241,7 +260,10 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2001-05-19 11:51:50 peter Revision 1.2 2001-06-12 01:12:34 carl
+ added header
Revision 1.1 2001/05/19 11:51:50 peter
* renamed to .pp * renamed to .pp
Revision 1.2 2001/05/16 15:28:40 carl Revision 1.2 2001/05/16 15:28:40 carl