diff options
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 |