OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2004-07-17 Jeroen Frijters <jeroen@frijters.net>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
cabs.f
1
program cabs_1
2
complex z0
3
real r0
4
complex*16 z1
5
real*8 r1
6
7
z0 = cmplx(3.,4.)
8
r0 = cabs(z0)
9
if (r0 .ne. 5.) call abort
10
11
z1 = dcmplx(3.d0,4.d0)
12
r1 = zabs(z1)
13
if (r1 .ne. 5.d0) call abort
14
end