1! { dg-do compile } 2! { dg-options "-std=f2003" } 3! 4! PR fortran/33197 5! 6! Fortran 2008 complex trigonometric functions: tan, cosh, sinh, tanh 7! 8real :: r 9complex :: z 10r = -45.5 11r = sin(r) 12r = cos(r) 13r = tan(r) 14r = cosh(r) 15r = sinh(r) 16r = tanh(r) 17z = 4.0 18z = cos(z) 19z = sin(z) 20z = tan(z) ! { dg-error "Fortran 2008: COMPLEX argument" } 21z = cosh(z)! { dg-error "Fortran 2008: COMPLEX argument" } 22z = sinh(z)! { dg-error "Fortran 2008: COMPLEX argument" } 23z = tanh(z)! { dg-error "Fortran 2008: COMPLEX argument" } 24end 25