Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
08c5a7c6
Commit
08c5a7c6
authored
Nov 29, 2013
by
Eric Botcazou
Committed by
Eric Botcazou
Nov 29, 2013
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* gnat.dg/opt29.ad[sb]: New test.
From-SVN: r205523
parent
089d1227
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
45 additions
and
0 deletions
+45
-0
gcc/testsuite/ChangeLog
+4
-0
gcc/testsuite/gnat.dg/opt29.adb
+13
-0
gcc/testsuite/gnat.dg/opt29.ads
+28
-0
No files found.
gcc/testsuite/ChangeLog
View file @
08c5a7c6
2013-11-29 Eric Botcazou <ebotcazou@adacore.com>
* gnat.dg/opt29.ad[sb]: New test.
2013-11-29 Richard Biener <rguenther@suse.de>
PR middle-end/59338
...
...
gcc/testsuite/gnat.dg/opt29.adb
0 → 100644
View file @
08c5a7c6
--
{
dg
-
do
compile
}
--
{
dg
-
options
"-O"
}
package
body
Opt29
is
procedure
Proc
(
T
:
Rec
)
is
begin
if
Derived2
(
T
.
F2
.
all
).
Id
=
T
.
F1
.
Id
then
raise
Program_Error
;
end
if
;
end
;
end
Opt29
;
gcc/testsuite/gnat.dg/opt29.ads
0 → 100644
View file @
08c5a7c6
package
Opt29
is
type
Word
is
mod
2
**
16
;
type
PID
is
record
W1
,
W2
:
Word
;
end
record
;
type
Root1
is
tagged
record
Id
:
PID
;
end
record
;
type
Root1_Ptr
is
access
all
Root1
'Class;
type Root2 is tagged null record;
type Root2_Ptr is access all Root2'
class
;
type
Derived2
is
new
Root2
with
record
Id
:
PID
;
end
record
;
type
Rec
is
record
F1
:
Root1_Ptr
;
F2
:
Root2_Ptr
;
end
record
;
procedure
Proc
(
T
:
Rec
);
end
Opt29
;
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment