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: