Yes, that works.
I got it working with: with Ada.Text_IO; use Ada.Text_IO; procedure Main is type Distance is new Float; type Area is new Float; function "*" (Left, Right : Distance) return Area is temp : Distance; begin temp := Left *…
Yes, that works.
I got it working with: with Ada.Text_IO; use Ada.Text_IO; procedure Main is type Distance is new Float; type Area is new Float; function "*" (Left, Right : Distance) return Area is temp : Distance; begin temp := Left *…