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
Require target lra in gcc.dg/pr108095.c
[official-gcc.git]
/
gcc
/
testsuite
/
gnat.dg
/
fixedpnt4.adb
blob
50252989f038b2a86829e369efd8114f9a8a23eb
1
-- { dg-do compile }
2
3
procedure
Fixedpnt4
is
4
type
T
is delta
2.0
/
5.0
range
-
10.0
..
10.0
with
Small
=>
2.0
/
5.0
;
5
type
T2
is delta
1.0
/
25.0
range
-
10.0
..
10.0
with
Small
=>
1.0
/
25.0
;
6
7
X
:
T
:=
1.0
;
8
Y
:
T2
;
9
begin
10
Y
:=
X
/
X
;
11
Y
:=
X
/ (
X
+
X
);
12
Y
:=
X
/ (
X
+
X
+
1.0
);
13
Y
:= (
X
+
X
) * (
X
+
X
);
14
end
;