From 6a1eb6a415d1a6336064babf147fba345e0d42bb Mon Sep 17 00:00:00 2001 From: Dominique d'Humieres Date: Tue, 28 Aug 2007 16:47:51 +0200 Subject: [PATCH] gamma_4.f90: Fix large-real kind selection. 2007-07-28 Dominique d'Humieres * gfortran.dg/gamma_4.f90: Fix large-real kind selection. From-SVN: r127861 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/gamma_4.f90 | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 050c62d95ae..1ab202ab167 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-07-28 Dominique d'Humieres + + * gfortran.dg/gamma_4.f90: Fix large-real kind selection. + 2007-08-28 Francois-Xavier Coudert * gfortran.dg/gamma_1.f90: Remove large-real tests. diff --git a/gcc/testsuite/gfortran.dg/gamma_4.f90 b/gcc/testsuite/gfortran.dg/gamma_4.f90 index 807f25a7d60..a351f77958a 100644 --- a/gcc/testsuite/gfortran.dg/gamma_4.f90 +++ b/gcc/testsuite/gfortran.dg/gamma_4.f90 @@ -10,7 +10,7 @@ program gamma_test implicit none intrinsic :: gamma, lgamma -integer, parameter :: qp = selected_real_kind(p=15,r=900) +integer, parameter :: qp = selected_real_kind(precision (0.0_8) + 1) real(qp) :: rqp -- 2.30.2