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
2016-11-21 Thomas Preud'homme <thomas.preudhomme@arm.com>
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
opt12_pkg.ads
blob
4defe2b77c7c772d75508631672d1c9287a003cb
1
package
Opt12_Pkg
is
2
3
type
Static_Integer_Subtype
is range
-
32
_000
..
32
_000
;
4
5
function
Equal
(
L
,
R
:
Static_Integer_Subtype
)
return
Boolean
;
6
7
type
My_Fixed
is delta
0.1
range
-
5.0
..
5.0
;
8
9
Fix_Half
:
My_Fixed
:=
0.5
;
10
11
end
Opt12_Pkg
;