Searched refs:d0 (Results 1 - 25 of 1478) sorted by relevance

1234567891011>>

/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/
H A Dpr41162.f3 write (*,'(1PD24.15,F4.2,0P)') 1.0d0
4 write (*,'(1PD24.15,F4.2,0P/)') 1.0d0
H A Dnearest_2.f9086 if (.not.isnan(nearest(0.0d0/0.0, 1.0))) call abort()
88 if (.not.isnan(nearest(0.0d0/0.0, -1.0))) call abort()
93 if (nearest(0.0d0, 1.0) &
94 <= 0.0d0) &
97 if (nearest(nearest(0.0d0, 1.0), 1.0) &
98 <= nearest(0.0d0, 1.0)) &
101 if (nearest(nearest(nearest(0.0d0, 1.0), 1.0), 1.0) &
102 <= nearest(nearest(0.0d0, 1.0), 1.0)) &
105 if (nearest(nearest(0.0d0, 1.0), -1.0) &
106 /= 0.0d0)
[all...]
H A Dpr32136.f907 real(kind(0d0)), parameter :: r(1) = &
8 transfer(transfer(sqrt(2d0), (/ .true. /) ), (/ 0d0 /), 1)
9 if (r(1) .ne. sqrt(2d0)) call abort ()
H A Dfmt_error_8.f10 write (*,'(1PD24.15,F4.2,0P)') 1.0d0 ! This OK too.
H A Datan2_1.f9011 real, parameter :: pi8 = 2*acos(0.0d0)
14 if(atan(1.0d0,i/10.0d0)-atan2(1.0d0,i/10.0d0) /= 0.0d0) call abort()
19 if (abs(atan(1.0d0,1.0d0)-pi8/4.0d0) > epsilon(pi8)) call abort()
23 if (abs(atan(-1.0d0,1.
[all...]
H A Dmatmul_9.f909 DOUBLE PRECISION,PARAMETER::m1=1.d0
10 DOUBLE PRECISION,DIMENSION(3,2),PARAMETER::A1=reshape([1.d0,0.d0, 0.d0, &
11 0.d0,1.d0, 0.d0],[3,2])
12 DOUBLE PRECISION,DIMENSION(2,2),PARAMETER::Mel=reshape([1.d0/3.d0, 0.d0,
[all...]
H A Dpr66864.f907 x = 2.0d0**26.5d0
9 if (floor(2.0d0**26.5d0)/= 94906265) call abort
10 x = 777666555.6d0
12 if (floor(777666555.6d0) /= 777666555) call abort
13 x = 2000111222.6d0
15 if (floor(2000111222.6d0) /= 2000111222) call abort
H A Dnint_1.f907 if (int(dnint(4503599627370497.0d0),8) /= 4503599627370497_8) call abort
8 if (int(dnint(0.49999999999999994d0)) /= 0) call abort
13 if (int(dnint(-4503599627370497.0d0),8) /= -4503599627370497_8) call abort
14 if (int(dnint(-0.49999999999999994d0)) /= 0) call abort
H A Dline_length_1.f5 if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
H A Dline_length_2.f906 if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
H A Dnearest_3.f90181 if (nearest(r4, 1.0d0) &
185 if (nearest(nearest(r4, 1.0d0), 1.0d0) &
186 <= nearest(r4, 1.0d0)) &
189 if (nearest(nearest(nearest(r4, 1.0d0), 1.0d0), 1.0d0) &
190 <= nearest(nearest(r4, 1.0d0), 1.0d0)) &
193 if (nearest(nearest(r4, 1.0d0),
[all...]
H A Dpr56015.f908 p(:) = (0.1d0, 0.2d0)
9 p(:) = (0.0d0, 1.0d0) * p(:)
14 if (any (p .ne. (-0.2d0, 0.1d0))) call abort
H A Dforall_17.f908 b=1d0
10 a(:,i)=b*[1d0,2d0,3d0]
14 aa(10*[0,1,2]+i)=1d0
H A Dtemporary_1.f906 real(kind=kind(1.0d0)), dimension (2, 2):: x, y, z;
8 x(1,1) = 1.d0
9 x(2,1) = 0.d0
10 x(1,2) = 0.d0
11 x(2,2) = 1.d0
21 real(kind=kind(1.0d0)), dimension(2,2) :: res
22 res(1,1) = 1.d0
23 res(2,1) = 0.d0
24 res(1,2) = 0.d0
25 res(2,2) = 1.d0
[all...]
/haiku-buildtools/gcc/gcc/testsuite/gcc.c-torture/compile/
H A D20040419-1.c3 int f(double d0, double d1) { return d0 > 0 == d1 > 0; } argument
/haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/execute/
H A Dintrinsic_transpose.f9013 d = reshape ((/(1d0,2d0), (3d0, 4d0), (5d0, 6d0), (7d0, 8d0)/), (/2, 2/))
15 if (any (c .ne. reshape ((/(1d0, 2d0), (
[all...]
H A Dwhere_5.f907 b = (/1d0, 0d0, 1d0, 0d0, 1d0/)
9 where (b .ne. 0d0)
/haiku-buildtools/binutils/gas/testsuite/gas/m68k/
H A Dctrl-1.s1 movec %d0,%rambar
2 movec %d0,%rambar0
H A Dctrl-2.s1 movec %d0,%rambar
2 movec %d0,%rambar1
/haiku-buildtools/gcc/gcc/testsuite/g++.dg/parse/
H A Dexpr2.C2 X(double *data, double d0, double d1);
5 int foo(double d0) { argument
7 X(data,d0,d0);
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/g77/
H A Df90-intrinsic-mathematical.f19 call c_d(ACOS(0.54030231d0),1.d0,'ACOS(double)')
23 call c_d(ASIN(0.84147098d0),1.d0,'ASIN(double)')
27 call c_d(ATAN(1.5574077d0),1.d0,'ATAN(double)')
31 call c_d(ATAN2(1.5574077d0,1.d0),1.d0,'ATAN2(double)')
35 call c_d(COS(1.d0),0.5403023
[all...]
/haiku-buildtools/binutils/gas/testsuite/gas/arm/
H A Dneon-ldst-es-bad.s2 vld1.64 {d0[1]}, [r0]
3 vld1.64 {d0[]}, [r0]
4 vld2.64 {d0[1]}, [r0]
5 vld2.64 {d0[]}, [r0]
6 vld2.64 {d0-d1}, [r0]
7 vld3.64 {d0[1]}, [r0]
8 vld3.64 {d0[]}, [r0]
9 vld3.64 {d0-d2}, [r0]
10 vld4.64 {d0[1]}, [r0]
11 vld4.64 {d0[]}, [r
[all...]
H A Dvfpv3xd.s4 fldd d0, [r0]
5 fstd d0, [r0]
7 fldmiad r0, {d0}
8 fldmfdd r0, {d0}
9 fldmiad r0!, {d0}
10 fldmfdd r0!, {d0}
11 fldmdbd r0!, {d0}
12 fldmead r0!, {d0}
14 fstmiad r0, {d0}
15 fstmead r0, {d0}
[all...]
H A Dneon-suffix-bad.s4 faddd.f32 d0, d0, d0
5 faddd.f64 d0, d0, d0
6 vcvt.f64.s32 d0, s0, #11
10 faddd.f32 d0, d0, d0
[all...]
/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ieee/
H A Dieee_7.f9022 if (ieee_support_datatype(0.d0)) then
23 if (ieee_selected_real_kind(precision(0.)+1) /= kind(0.d0)) call abort
24 if (ieee_selected_real_kind(precision(0.),range(0.)+1) /= kind(0.d0)) call abort
25 if (ieee_selected_real_kind(precision(0.)+1,range(0.)+1) /= kind(0.d0)) call abort
26 if (ieee_selected_real_kind(precision(0.)+1,range(0.)+1,2) /= kind(0.d0)) call abort
30 if (ieee_selected_real_kind(precision(0.d0)+1) /= -1) call abort
31 if (ieee_selected_real_kind(0,range(0.d0)+1) /= -2) call abort
32 if (ieee_selected_real_kind(precision(0.d0)+1,range(0.d0)+1) /= -3) call abort

Completed in 224 milliseconds

1234567891011>>