Login
[x]
Log in using an account from:
Fedora Account System
Red Hat Associate
Red Hat Customer
Or login using a Red Hat Bugzilla account
Forgot Password
Login:
Hide Forgot
Create an Account
Red Hat Bugzilla – Attachment 1458691 Details for
Bug 1600886
GCC/GNAT fails to optimize access to packed array
[?]
New
Simple Search
Advanced Search
My Links
Browse
Requests
Reports
Current State
Search
Tabular reports
Graphical reports
Duplicates
Other Reports
User Changes
Plotly Reports
Bug Status
Bug Severity
Non-Defaults
|
Product Dashboard
Help
Page Help!
Bug Writing Guidelines
What's new
Browser Support Policy
5.0.4.rh83 Release notes
FAQ
Guides index
User guide
Web Services
Contact
Legal
This site requires JavaScript to be enabled to function correctly, please enable it.
reproducer
ts_00021.adb (text/plain), 932 bytes, created by
Maxim Reznik
on 2018-07-13 09:44:59 UTC
(
hide
)
Description:
reproducer
Filename:
MIME Type:
Creator:
Maxim Reznik
Created:
2018-07-13 09:44:59 UTC
Size:
932 bytes
patch
obsolete
>procedure TS_00021 is > > type Terminal_Set_Indexed_By_Non_Terminal is > array (Natural range <>, Natural range <>) > of Boolean with Pack; > > type Terminal_Set_Per_Non_Terminal > (Last_Terminal : Natural; > Last_Non_Terminal : Natural) is > record > Map : Terminal_Set_Indexed_By_Non_Terminal > (1 .. Last_Non_Terminal, 0 .. Last_Terminal); > end record; > > Follow : Terminal_Set_Per_Non_Terminal (5, 4); > Expect : Terminal_Set_Per_Non_Terminal := > (5, 4, (1 => (2 => True, others => False), > others => (others => False))); > > procedure Get_Follow (Value : out Terminal_Set_Per_Non_Terminal) is > begin > Value.Map := (others => (others => False)); > Value.Map (1, 2) := True; > Value.Map (2, 0) := Value.Map (2, 0) or Value.Map (1, 0); > end Get_Follow; > >begin > Get_Follow (Follow); > if Follow /= Expect then > raise Program_Error; > end if; >end TS_00021;
<b>You cannot view the attachment while viewing its details because your browser does not support IFRAMEs. <a href="attachment.cgi?id=1458691">View the attachment on a separate page</a>.</b>
View Attachment As Raw
Actions:
View
Attachments on
bug 1600886
: 1458691