Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-std=f2003" }

!

! PR fortran/33197

!

! Fortran 2008 complex trigonometric functions: tan, cosh, sinh, tanh

!

real :: r

complex :: z

r = -45.5

r = sin(r)

r = cos(r)

r = tan(r)

r = cosh(r)

r = sinh(r)

r = tanh(r)

z = 4.0

z = cos(z)

z = sin(z)

z = tan(z) ! { dg-error "Fortran 2008: COMPLEX argument" }

z = cosh(z)! { dg-error "Fortran 2008: COMPLEX argument" }

z = sinh(z)! { dg-error "Fortran 2008: COMPLEX argument" }

z = tanh(z)! { dg-error "Fortran 2008: COMPLEX argument" }

end