Message ID | 4EB95D57.9000102@net-b.de |
---|---|
State | New |
Headers | show |
--- a/gcc/testsuite/gfortran.dg/quad_2.f90 +++ b/gcc/testsuite/gfortran.dg/quad_2.f90 @@ -50,12 +50,14 @@ program test_qp if (str2 /= "1.00000000000000000000000000000000000") call abort() if (str3 /= " 1.41421356237309504880168872420969798") call abort() if (str4 /= "1.41421356237309504880168872420969798") call abort() - block + if (qp == 16 .and. size (real_kinds) >= 4) then + block real(qp), volatile :: fp2a fp2a = 2.0_qp fp2a = sqrt (fp2a) if (abs (fp2a - fp2) > sqrt(2.0_qp)-nearest(sqrt(2.0_qp),-1.0_qp)) call abort() - end block + end block + end if case default