Opened 3 years ago
Last modified 3 years ago
#498 new defect
invalid comparison of objects
| Reported by: | vadim.godunko | Owned by: | |
|---|---|---|---|
| Priority: | major | Milestone: | 19.0 |
| Component: | Matreshka - a2js | Version: | |
| Keywords: | Cc: |
Description
Following code raise exception but should not:
with Reals;
procedure Test_1 is
use type Reals.Geometry_3D.Point_3D;
A : Reals.Geometry_3D.Point_3D
:= Reals.Geometry_3D.To_Point_3D (0.0, 0.0, 0.0);
B : Reals.Geometry_3D.Point_3D
:= Reals.Geometry_3D.To_Point_3D (0.0, 0.0, 0.0);
begin
if A /= B then
raise Program_Error;
end if;
end Test_1;
A and B are compared "as objects" instead of "as values".
Attachments (13)
Change History (17)
by , 3 years ago
by , 3 years ago
| Attachment: | generic_algebra_2.adb added |
|---|
by , 3 years ago
| Attachment: | generic_algebra_2.ads added |
|---|
by , 3 years ago
| Attachment: | generic_algebra_3.ads added |
|---|
by , 3 years ago
| Attachment: | generic_algebra_4.adb added |
|---|
by , 3 years ago
| Attachment: | generic_algebra_4.ads added |
|---|
by , 3 years ago
| Attachment: | generic_fuzzy_compare.adb added |
|---|
by , 3 years ago
| Attachment: | generic_fuzzy_compare.ads added |
|---|
by , 3 years ago
| Attachment: | generic_geometry_2d.adb added |
|---|
by , 3 years ago
| Attachment: | generic_geometry_2d.ads added |
|---|
by , 3 years ago
| Attachment: | generic_geometry_3d.adb added |
|---|
by , 3 years ago
| Attachment: | generic_geometry_3d.ads added |
|---|
by , 3 years ago
| Attachment: | test_1.adb added |
|---|
comment:1 by , 3 years ago
Note:
See TracTickets
for help on using tickets.
In 5862: