repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
2017-07-25 Richard Biener <rguenther@suse.de>
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
opt55.ads
blob
fec3c9ae2ef52451194586326d69482acda10391
1
package
Opt55
is
2
3
type
Date
is record
4
D
:
Float
;
5
end record
;
6
7
type
Rec1
(
Kind
:
Boolean
:=
False
)
is record
8
case
Kind
is
9
when
True
=>
N
:
Natural
;
10
when
False
=>
null
;
11
end case
;
12
end record
;
13
14
type
Rec2
(
D
:
Positive
)
is record
15
R
:
Rec1
;
16
D1
:
Date
;
17
D2
:
Date
;
18
end record
;
19
20
function
F
(
C
:
Rec2
;
B
:
Boolean
)
return
Date
;
21
22
end
Opt55
;