File: cpow.f90

package info (click to toggle)

llvm-2.7 2.7-6

links: PTS
area: main
in suites: squeeze
size: 59,992 kB
ctags: 49,499
sloc: cpp: 373,792; ansic: 16,885; sh: 12,614; asm: 6,809; ada: 3,083; ml: 2,942; python: 2,671; perl: 2,404; makefile: 1,691; pascal: 1,235; exp: 399; objc: 291; lisp: 184; csh: 117; xml: 38; f90: 36

file content (18 lines) | stat: -rw-r--r-- 343 bytes

parent folder | download | duplicates (2)

! RUN: %llvmgcc -c %s
! PR2443

! Program to test the power (**) operator
program testpow
   implicit none
   real(kind=4) r, s, two
   real(kind=8) :: q
   complex(kind=4) :: c, z
   real, parameter :: del = 0.0001
   integer i, j

   two = 2.0

   c = (2.0, 3.0)
   c = c ** two
   if (abs(c - (-5.0, 12.0)) .gt. del) call abort
end program