diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-07 11:50:31 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2026-01-07 11:50:31 +1300 |
| commit | 2209ab74ab651d958e250d1f991fe9f076f76503 (patch) | |
| tree | db13590fdea0c26bc9346ecad186ee065288b4b0 /test/divo.adb | |
| parent | 8a8435b1f51401ebe4881ab8da1eb4f3913270fd (diff) | |
Test programs now interleave calculation and text output better
Diffstat (limited to 'test/divo.adb')
| -rw-r--r-- | test/divo.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/test/divo.adb b/test/divo.adb index eabc32c..8c39e79 100644 --- a/test/divo.adb +++ b/test/divo.adb @@ -56,10 +56,9 @@ procedure Divo is Result : State; begin Math.Divide (Relation, B (Dividend) & B (Divisor) & Quotient & Remainder); + TIO.Put (P (Dividend) & " / " & P (Divisor) & " = "); Result := Relation.Run; - TIO.Put_Line (P (Dividend) & " / " & P (Divisor) & - " = " & PV (Quotient.Resolve (Result)) & - " r " & PV (Remainder.Resolve (Result))); + TIO.Put_Line (PV (Quotient.Resolve (Result)) & " r " & PV (Remainder.Resolve (Result))); end Test; begin |