gcc/testsuite/gfortran.dg/complex_intrinsic_4.f90

   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 !
   8 real :: r
   9 complex :: z
  10 r = -45.5
  11 r = sin(r)
  12 r = cos(r)
  13 r = tan(r)
  14 r = cosh(r)
  15 r = sinh(r)
  16 r = tanh(r)
  17 z = 4.0
  18 z = cos(z)
  19 z = sin(z)
  20 z = tan(z) ! { dg-error "Fortran 2008: COMPLEX argument" }
  21 z = cosh(z)! { dg-error "Fortran 2008: COMPLEX argument" }
  22 z = sinh(z)! { dg-error "Fortran 2008: COMPLEX argument" }
  23 z = tanh(z)! { dg-error "Fortran 2008: COMPLEX argument" }
  24 end