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
[AArch64] Merge stores of D-register values with different modes
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr40587.f
blob
0761d9d7e90d5a4b41541921cf2f2c69d4703f3d
1
C PR traget/40587
2
C { dg-do compile }
3
C { dg-options "-O2" }
4
subroutine
TEST
(
i
,
r
,
result
)
5
implicit
none
6
integer
i
7
REAL*8
r
8
REAL*8
result
9
REAL*8
r2
10
if
(
i
.
eq
.0
)
then
11
r2
=
r
12
else
13
call
ERROR
()
14
endif
15
result
=
r2
16
return
17
end