llvm-mirror/test/FrontendFortran/cpow.f90

! RUN: %llvmgcc -S %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
Use -S rather than -c for the benefit of dragonegg. llvm-svn: 120161 2010-11-25 21:41:35 +00:00			`! RUN: %llvmgcc -S %s`
Regression test for PR2443. llvm-svn: 52826 2008-06-27 14:22:20 +00:00			`! 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`