mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-19 07:45:09 +00:00
c984921b2e
Estimated hours taken: 0.25 tests/hard_coded/float_reg.m: tests/hard_coded/float_reg.exp: Add test cases for `1.0e10' and `1.0e30'. Mercury 0.6 had trouble with these.
32 lines
732 B
Mathematica
32 lines
732 B
Mathematica
% Regression test:
|
|
%
|
|
% Test case for creation of float constants.
|
|
%
|
|
% The Mercury compiler of 21 December 1996 failed to compile this on
|
|
% SPARC platforms, because the + in the float name was not converted
|
|
% correctly. This leads to syntax errors in the generated C code,
|
|
% eg
|
|
% flo.c:22: syntax error before `+'
|
|
% flo.c:23: `mercury_float_const_2pt88e' undeclared (first use this function)
|
|
%
|
|
% Author: trd
|
|
|
|
:- module float_reg.
|
|
:- interface.
|
|
:- import_module io.
|
|
|
|
:- pred main(io__state::di, io__state::uo) is det.
|
|
|
|
:- implementation.
|
|
|
|
:- import_module io, float.
|
|
|
|
main -->
|
|
io__write_float(2.88e32),
|
|
io__write_string("\n"),
|
|
io__write_float(1.0e32),
|
|
io__write_string("\n"),
|
|
io__write_float(1.0e10),
|
|
io__write_string("\n").
|
|
|