diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/gamma_3.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gamma_3.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/testsuite/gfortran.dg/gamma_3.f90 b/gcc/testsuite/gfortran.dg/gamma_3.f90 index b35596fa5a9..ca3d30db983 100644 --- a/gcc/testsuite/gfortran.dg/gamma_3.f90 +++ b/gcc/testsuite/gfortran.dg/gamma_3.f90 @@ -16,11 +16,11 @@ x = dgamma(cmplx(1.0,0.0,kind(0d0))) ! { dg-error "must be REAL" } x = gamma(int(1)) ! { dg-error "is not consistent with a specific intrinsic interface" } x = dgamma(int(1)) ! { dg-error "must be REAL" } -x = lgamma(cmplx(1.0,0.0)) ! { dg-error "is not consistent with a specific intrinsic interface" } +x = lgamma(cmplx(1.0,0.0)) ! { dg-error "must be REAL" } x = algama(cmplx(1.0,0.0)) ! { dg-error "must be REAL" } x = dlgama(cmplx(1.0,0.0,kind(0d0))) ! { dg-error "must be REAL" } -x = lgamma(int(1)) ! { dg-error "is not consistent with a specific intrinsic interface" } +x = lgamma(int(1)) ! { dg-error "must be REAL" } x = algama(int(1)) ! { dg-error "must be REAL" } x = dlgama(int(1)) ! { dg-error "must be REAL" } end program gamma_test |