/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) call abort() 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) call abort() 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) call abort() 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) call abort() 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) call abort() 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) call abort() 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) call abort() 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) call abort() 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) call abort() 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) call abort() 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) call abort() 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) call abort() 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) call abort() 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) call abort() 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) call abort() 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/gfortran.dg/ |
H A D | round_4.f90 | 33 real(4) :: r4p, r4m, ref4u, ref4d variable 42 read (str, *, round='up') r4p, r8p, r10p, r16p 44 rnd4 = r4p /= r4m 77 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4d)) STOP 1 84 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4u)) STOP 5 91 if (rnd4 .and. (r4p /= ref4d .or. r4m /= -ref4d)) STOP 9 98 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 13 107 if (rnd4 .and. (r4p /= ref4u .or. r4m /= -ref4u)) STOP 17 115 read (str, *,round=round) r4p, r8p, r10p, r16p
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/external/tsai-30b3/ |
H A D | ecalmain.c | 161 r4p, local 175 r4p = U[3]; 180 Ty_squared = 1 / (SQR (r4p) + SQR (r5p)); 181 else if ((fabs (r4p) < EPSILON) && (fabs (r5p) < EPSILON)) 183 else if ((fabs (r1p) < EPSILON) && (fabs (r4p) < EPSILON)) 186 Ty_squared = 1 / (SQR (r1p) + SQR (r4p)); 188 Sr = SQR (r1p) + SQR (r2p) + SQR (r4p) + SQR (r5p); 189 Ty_squared = (Sr - sqrt (SQR (Sr) - 4 * SQR (r1p * r5p - r4p * r2p))) / 190 (2 * SQR (r1p * r5p - r4p * r2p));
|
H A D | cal_main.c | 463 r4p, in cc_compute_Tx_and_Ty() local 474 r4p = U[3]; in cc_compute_Tx_and_Ty() 479 Ty_squared = 1 / (SQR (r4p) + SQR (r5p)); in cc_compute_Tx_and_Ty() 480 else if ((fabs (r4p) < EPSILON) && (fabs (r5p) < EPSILON)) in cc_compute_Tx_and_Ty() 482 else if ((fabs (r1p) < EPSILON) && (fabs (r4p) < EPSILON)) in cc_compute_Tx_and_Ty() 485 Ty_squared = 1 / (SQR (r1p) + SQR (r4p)); in cc_compute_Tx_and_Ty() 487 Sr = SQR (r1p) + SQR (r2p) + SQR (r4p) + SQR (r5p); in cc_compute_Tx_and_Ty() 488 Ty_squared = (Sr - sqrt (SQR (Sr) - 4 * SQR (r1p * r5p - r4p * r2p))) / in cc_compute_Tx_and_Ty() 489 (2 * SQR (r1p * r5p - r4p * r2p)); in cc_compute_Tx_and_Ty()
|
/dports/audio/rsynth/rsynth-2.0/ |
H A D | nsynth.c | 127 static resonator_t r4p = variable 699 setabcg(frame->F4hz, frame->B4phz, &r4p, amp_parF4); 962 out = resonator(&r4p, sourc) - out; 999 r4p.p1 = 0; /* parallel 4th formant */ 1000 r4p.p2 = 0;
|
/dports/science/qbox/qbox-public-rel1_73_3/src/ |
H A D | TorsionConstraint.cpp | 97 D3vector r4p(pr4p); in enforce_r() local 111 grad_sigma(r1p,r2p,r3p,r4p,g1p,g2p,g3p,g4p); in enforce_r() 112 const double ap = torsion_angle(r1p,r2p,r3p,r4p); in enforce_r() 182 const double lambda = - sigma(r1p,r2p,r3p,r4p) / den; in enforce_r()
|
/dports/cad/meshlab/meshlab-Meshlab-2020.05/src/plugins_unsupported/editrgbtri/ |
H A D | rgbPrimitives.cpp | 31 vector<FaceInfo::FaceColor>* RgbPrimitives::r4p = 0; member in rgbt::RgbPrimitives 683 if (!r4p) in r4_Merge_Possible() 685 r4p = new vector<FaceInfo::FaceColor>(4); in r4_Merge_Possible() 686 (*r4p)[0] = FaceInfo::FACE_RED_RGG; in r4_Merge_Possible() 687 (*r4p)[1] = FaceInfo::FACE_RED_GGR; in r4_Merge_Possible() 688 (*r4p)[2] = FaceInfo::FACE_RED_RGG; in r4_Merge_Possible() 689 (*r4p)[3] = FaceInfo::FACE_RED_GGR; in r4_Merge_Possible() 695 return isMatch(vcolor,*r4p); in r4_Merge_Possible()
|
/dports/devel/asl/asl-current/tests/t_4004/ |
H A D | t_4004.asm | 39 fim r4p, 56h
|