Opened 4 years ago
Last modified 4 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 , 4 years ago
by , 4 years ago
Attachment: | generic_algebra_2.adb added |
---|
by , 4 years ago
Attachment: | generic_algebra_2.ads added |
---|
by , 4 years ago
Attachment: | generic_algebra_3.ads added |
---|
by , 4 years ago
Attachment: | generic_algebra_4.adb added |
---|
by , 4 years ago
Attachment: | generic_algebra_4.ads added |
---|
by , 4 years ago
Attachment: | generic_fuzzy_compare.adb added |
---|
by , 4 years ago
Attachment: | generic_fuzzy_compare.ads added |
---|
by , 4 years ago
Attachment: | generic_geometry_2d.adb added |
---|
by , 4 years ago
Attachment: | generic_geometry_2d.ads added |
---|
by , 4 years ago
Attachment: | generic_geometry_3d.adb added |
---|
by , 4 years ago
Attachment: | generic_geometry_3d.ads added |
---|
by , 4 years ago
Attachment: | test_1.adb added |
---|
comment:1 by , 4 years ago
Note:
See TracTickets
for help on using tickets.
In 5862: