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
ieee_9.f90: XFAIL on arm*-*-gnueabi[hf].
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
cabs.f
blob
73becbcadf457d734cf05bfb615ebb6d59191470
1
c { dg-do run }
2
program
cabs_1
3
complex
z0
4
real
r0
5
complex
(
kind
=
8
)
z1
6
real
(
kind
=
8
)
r1
7
8
z0
=
cmplx
(
3
.,
4
.)
9
r0
=
cabs
(
z0
)
10
if
(
r0
.
ne
.
5
.)
STOP
1
11
12
z1
=
dcmplx
(
3
.
d0
,
4
.
d0
)
13
r1
=
zabs
(
z1
)
14
if
(
r1
.
ne
.
5
.
d0
)
STOP
2
15
end