diff options
| author | Dominique d'Humieres <dominiq@lps.ens.fr> | 2007-08-28 16:47:51 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2007-08-28 16:47:51 +0200 |
| commit | 6a1eb6a415d1a6336064babf147fba345e0d42bb (patch) | |
| tree | 2363553c403ef22454a1d7b97eca8d01c3a562da /gcc | |
| parent | eff3e5d6c946f20604c27f2728e1539d83151bbc (diff) | |
| download | gcc-6a1eb6a415d1a6336064babf147fba345e0d42bb.zip gcc-6a1eb6a415d1a6336064babf147fba345e0d42bb.tar.gz gcc-6a1eb6a415d1a6336064babf147fba345e0d42bb.tar.bz2 | |
gamma_4.f90: Fix large-real kind selection.
2007-07-28 Dominique d'Humieres <dominiq@lps.ens.fr>
* gfortran.dg/gamma_4.f90: Fix large-real kind selection.
From-SVN: r127861
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gamma_4.f90 | 2 |
2 files changed, 5 insertions, 1 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 050c62d..1ab202a 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2007-07-28 Dominique d'Humieres <dominiq@lps.ens.fr> + + * gfortran.dg/gamma_4.f90: Fix large-real kind selection. + 2007-08-28 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> * 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 807f25a..a351f77 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 |