PR testsuite/35406

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / gamma_3.f90

diff --git a/gcc/testsuite/gfortran.dg/gamma_3.f90 b/gcc/testsuite/gfortran.dg/gamma_3.f90
index b35596f..ca3d30d 100644 (file)
--- 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