Foundation, 51 Franklin Street, Fifth Floor,
Boston, MA 02110-1301, USA. *)
-MODULE stdio ; (*!m2pim*)
+MODULE teststdio ; (*!m2pim*)
CONST
MaxStack = 40 ;
BEGIN
StackWPtr := 0 ;
PushOutput(write)
-END stdio.
+END teststdio.
-MODULE builtins ; (*!m2pim+gm2*)
+MODULE testbuiltins ; (*!m2pim+gm2*)
FROM Builtins IMPORT log10l ;
FROM libc IMPORT printf, exit ;
code := 0 ;
test ;
exit (code)
-END builtins.
+END testbuiltins.
with gm2; see the file COPYING. If not, write to the Free Software
Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *)
-MODULE math ;
+MODULE testmath ;
IMPORT MathLib0, SMathLib0 ;
FROM libc IMPORT printf, exit ;
s := 5.9 ;
printf("value of SMathLib0.entier (10.0 + s) = %d (should be 15)\n", SMathLib0.entier (10.0 + s)) ;
Assert(SMathLib0.entier (10.0 + s) = 15, __FILE__, __LINE__) ;
-END math.
+END testmath.
with gm2; see the file COPYING. If not, write to the Free Software
Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. *)
-MODULE math2 ;
+MODULE testmath2 ;
IMPORT MathLib0, SMathLib0 ;
FROM libc IMPORT printf, exit ;
s := 5.9 ;
printf("value of SMathLib0.entier (10.0 + s) = %d (should be 15)\n", SMathLib0.entier (10.0 + s)) ;
Assert(SMathLib0.entier (s + 10.0) = 15, __FILE__, __LINE__) ;
-END math2.
+END testmath2.