| Duncan Sands | b78424e | 2008-06-27 14:22:20 +0000 | [diff] [blame^] | 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 | ||||