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
/
scale_1.f90
blob
e3031be66905335404d3673faf12406a6f1b5ed8
1
! { dg-do run }
2
! inspired by PR17175
3
REAL
X
4
DOUBLE PRECISION
Y
5
6
INTEGER
,
PARAMETER
::
DP
=
KIND
(
Y
)
7
8
INTEGER
(
kind
=
1
)
I1
9
INTEGER
(
kind
=
2
)
I2
10
INTEGER
(
kind
=
4
)
I4
11
INTEGER
(
kind
=
8
)
I8
12
13
X
=
1
.
14
Y
=
1
.
_DP
15
16
I1
=
10
17
I2
= -
10
18
I4
=
20
19
I8
= -
20
20
21
X
=
SCALE
(
X
,
I1
)
22
X
=
SCALE
(
X
,
I2
)
23
IF
(
X
.
NE
.1
.)
STOP
1
24
X
=
SCALE
(
X
,
I4
)
25
X
=
SCALE
(
X
,
I8
)
26
IF
(
X
.
NE
.1
.)
STOP
2
27
28
Y
=
SCALE
(
Y
,
I1
)
29
Y
=
SCALE
(
Y
,
I2
)
30
IF
(
Y
.
NE
.1
.
_DP
)
STOP
3
31
Y
=
SCALE
(
Y
,
I4
)
32
Y
=
SCALE
(
Y
,
I8
)
33
IF
(
Y
.
NE
.1
.
_DP
)
STOP
4
34
35
END