2 ! { dg-options "-std=f2003" }
7 ! Complex inverse trigonometric functions
8 ! and complex inverse hyperbolic functions
15 real(4), volatile :: r4
16 real(8), volatile :: r8
17 complex(4), volatile :: z4
18 complex(8), volatile :: z8
22 z4 = cmplx(0.0_4, 0.0_4, kind=4)
23 z8 = cmplx(0.0_8, 0.0_8, kind=8)
32 ! a(sin,cos,tan)h cannot be checked as they are not part of
33 ! Fortran 2003 - not even for real arguments
35 z4 = asin(z4) ! { dg-error "Fortran 2008: COMPLEX argument" }
36 z8 = asin(z8) ! { dg-error "Fortran 2008: COMPLEX argument" }
37 z4 = acos(z4) ! { dg-error "Fortran 2008: COMPLEX argument" }
38 z8 = acos(z8) ! { dg-error "Fortran 2008: COMPLEX argument" }
39 z4 = atan(z4) ! { dg-error "Fortran 2008: COMPLEX argument" }
40 z8 = atan(z8) ! { dg-error "Fortran 2008: COMPLEX argument" }
41 END PROGRAM ArcTrigHyp