2 ! { dg-options "-std=f2003" }
6 ! Check for Fortran 2008's ATAN(Y,X) - which is equivalent
7 ! to Fortran 77's ATAN2(Y,X).
17 r4
= atan(r4
,r4
) ! { dg-error "Too many arguments in call to 'atan'" }
18 r8
= atan(r8
,r8
) ! { dg-error "Too many arguments in call to 'atan'" }
20 r4
= atan2(r4
,r8
) ! { dg-error "same type and kind" }
21 r4
= atan2(r8
,r4
) ! { dg-error "same type and kind" }
23 r4
= atan2(c4
,r8
) ! { dg-error "must be REAL" }
24 r4
= atan2(c8
,r4
) ! { dg-error "must be REAL" }
25 r4
= atan2(r4
,c8
) ! { dg-error "same type and kind" }
26 r4
= atan2(r8
,c4
) ! { dg-error "same type and kind" }
28 r4
= atan2(c4
,c8
) ! { dg-error "must be REAL" }
29 r4
= atan2(c8
,c4
) ! { dg-error "must be REAL" }