projects
/
oota-llvm.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
revert my strstr optimization, I'm told it breaks x86-64 bootstrap.
[oota-llvm.git]
/
test
/
FrontendFortran
/
cpow.f90
1
! RUN: %llvmgcc -c %s
2
! PR2443
3
4
! Program to test the power (**) operator
5
program testpow
6
implicit none
7
real(kind=4) r, s, two
8
real(kind=8) :: q
9
complex(kind=4) :: c, z
10
real, parameter :: del = 0.0001
11
integer i, j
12
13
two = 2.0
14
15
c = (2.0, 3.0)
16
c = c ** two
17
if (abs(c - (-5.0, 12.0)) .gt. del) call abort
18
end program