gcc/testsuite/gm2/builtins/run/pass/testsinl.mod


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

IMPLEMENTATION MODULE testsinl ;

FROM libc IMPORT printf ;
FROM Builtins IMPORT sinl ;


(*
   test -
*)

PROCEDURE test ;
VAR
   result: LONGREAL ;
BEGIN
   result := sinl (3.14) ;
   printf ("sinl (3.14) = %lg\n", result) ;
END test ;


BEGIN
   test ;
   printf ("all tests pass\n")
END testsinl.