/haiku-buildtools/gcc/gcc/testsuite/gfortran.dg/ |
H A D | pr41162.f | 3 write (*,'(1PD24.15,F4.2,0P)') 1.0d0 4 write (*,'(1PD24.15,F4.2,0P/)') 1.0d0
|
H A D | nearest_2.f90 | 86 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 D | pr32136.f90 | 7 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 D | fmt_error_8.f | 10 write (*,'(1PD24.15,F4.2,0P)') 1.0d0 ! This OK too.
|
H A D | atan2_1.f90 | 11 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 D | matmul_9.f90 | 9 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 D | pr66864.f90 | 7 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 D | nint_1.f90 | 7 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 D | line_length_1.f | 5 if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
|
H A D | line_length_2.f90 | 6 if (abs(aaaaaaaaaaaaaaaaaaaaaaaaaaaaaa).gt.999.d0.or.abs(bbbbbbbbbbbbbbbbbbbbbbbbbbbbbb).gt.999.d0.or.abs(cccccccccccccccccccc).gt.999.d0) THEN
|
H A D | nearest_3.f90 | 181 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 D | pr56015.f90 | 8 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 D | forall_17.f90 | 8 b=1d0 10 a(:,i)=b*[1d0,2d0,3d0] 14 aa(10*[0,1,2]+i)=1d0
|
H A D | temporary_1.f90 | 6 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 D | 20040419-1.c | 3 int f(double d0, double d1) { return d0 > 0 == d1 > 0; } argument
|
/haiku-buildtools/gcc/gcc/testsuite/gfortran.fortran-torture/execute/ |
H A D | intrinsic_transpose.f90 | 13 d = reshape ((/(1d0,2d0), (3d0, 4d0), (5d0, 6d0), (7d0, 8d0)/), (/2, 2/)) 15 if (any (c .ne. reshape ((/(1d0, 2d0), ( [all...] |
H A D | where_5.f90 | 7 b = (/1d0, 0d0, 1d0, 0d0, 1d0/) 9 where (b .ne. 0d0)
|
/haiku-buildtools/binutils/gas/testsuite/gas/m68k/ |
H A D | ctrl-1.s | 1 movec %d0,%rambar 2 movec %d0,%rambar0
|
H A D | ctrl-2.s | 1 movec %d0,%rambar 2 movec %d0,%rambar1
|
/haiku-buildtools/gcc/gcc/testsuite/g++.dg/parse/ |
H A D | expr2.C | 2 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 D | f90-intrinsic-mathematical.f | 19 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 D | neon-ldst-es-bad.s | 2 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 D | vfpv3xd.s | 4 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 D | neon-suffix-bad.s | 4 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 D | ieee_7.f90 | 22 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
|