MERCURY_OPTIONS= --deep-random-write=25 --mdb-disable-progress
make[3]: Entering directory '/mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/tests/hard_coded'
{ echo MCFLAGS += '--grade csharp     --options-file /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/Mercury.options --mercury-linkage static -j2 --flags ../TESTS_FLAGS --flags ../WS_FLAGS --use-subdirs    '; echo MCFLAGS += ' '; echo CFLAGS += '    '; echo JAVACFLAGS += '-J"-Xmx1024m"   '; echo CSCFLAGS += '   '; echo C2INITARGS += ' /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/library/mer_std.init /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/runtime/mer_rt.init    '; echo MLLIBS += '   '; echo MLOBJS += '  '; echo LDFLAGS += '  '; echo LD_LIBFLAGS += '  '; echo EXTRA_LIBRARIES += ''; echo EXTRA_LIB_DIRS += ''; echo LIBGRADES = 'hlc.gc  '; echo INSTALL_PREFIX = '/mnt/testing/run/install'; echo LINKAGE = 'shared'; echo MERCURY_LINKAGE = 'shared'; } | /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/scripts/mmc --make --options-file - write_xml.depend
make[3]: Leaving directory '/mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/tests/hard_coded'
make[3]: Entering directory '/mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/tests/hard_coded'
{ echo MCFLAGS += '--grade csharp     --options-file /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/Mercury.options --mercury-linkage static -j2 --flags ../TESTS_FLAGS --flags ../WS_FLAGS --use-subdirs    '; echo MCFLAGS += ' '; echo CFLAGS += '    '; echo JAVACFLAGS += '-J"-Xmx1024m"   '; echo CSCFLAGS += '   '; echo C2INITARGS += ' /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/library/mer_std.init /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/runtime/mer_rt.init    '; echo MLLIBS += '   '; echo MLOBJS += '  '; echo LDFLAGS += '  '; echo LD_LIBFLAGS += '  '; echo EXTRA_LIBRARIES += ''; echo EXTRA_LIB_DIRS += ''; echo LIBGRADES = 'hlc.gc  '; echo INSTALL_PREFIX = '/mnt/testing/run/install'; echo LINKAGE = 'shared'; echo MERCURY_LINKAGE = 'shared'; } | /mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/stage2/scripts/mmc --make --options-file - write_xml
Making Mercury/int3s/write_xml.int3
Making Mercury/ints/write_xml.int
Making Mercury/css/write_xml.cs
Making write_xml.exe
{ [ -f write_xml.inp ] && cat write_xml.inp; } | ./write_xml > write_xml.out 2>&1 || \
	{ grep . write_xml.out /dev/null; exit 1; }
Comparing write_xml.out with write_xml.exp*,
	results in write_xml.res
** write_xml.out did not match the expected output
** (closest match was write_xml.res2)
--- write_xml.exp2	2020-10-11 14:28:49.000000000 +1100
+++ write_xml.out	2024-08-03 16:16:45.327988722 +1000
@@ -25,7 +25,7 @@
 			<Int type="int">123456</Int>
 			<Tuple--2--Tag_-123character-44-32float-125 functor="{}" type="{character, float}" arity="2">
 				<Char type="character">a</Char>
-				<Float type="float">1.2355322522e-97</Float>
+				<Float type="float">1.2355322522E-97</Float>
 			</Tuple--2--Tag_-123character-44-32float-125>
 		</Tuple--3--Tag_-123string-44-32int-44-32-123character-44-32float-125-125>
 	</a_tuple--1--write_xml-46mytype>
@@ -115,19 +115,16 @@
 		<pred-40int-41 functor="&lt;&lt;predicate&gt;&gt;" type="pred(int)" arity="0" />
 	</a_pred--1--write_xml-46mytype>
 	<t--1--write_xml-46mytype functor="t" type="write_xml.mytype" arity="1">
-		<type_desc-46type_desc functor="tree234" type="type_desc.type_desc" arity="2">
-			<type_desc-46type_desc functor="int" type="type_desc.type_desc" arity="0" />
-			<type_desc-46type_desc functor="string" type="type_desc.type_desc" arity="0" />
-		</type_desc-46type_desc>
+		<type_desc-46type_desc functor="some_type_desc" type="type_desc.type_desc" arity="0" />
 	</t--1--write_xml-46mytype>
 	<ctor--1--write_xml-46mytype functor="ctor" type="write_xml.mytype" arity="1">
-		<type_desc-46type_ctor_desc functor="tree234.tree234/2" type="type_desc.type_ctor_desc" arity="0" />
+		<type_desc-46type_ctor_desc functor="some_type_ctor_desc" type="type_desc.type_ctor_desc" arity="0" />
 	</ctor--1--write_xml-46mytype>
 	<foreign--1--write_xml-46mytype functor="foreign" type="write_xml.mytype" arity="1">
-		<write_xml-46ftype functor="&lt;&lt;foreign(ftype, 0x1)&gt;&gt;" type="write_xml.ftype" arity="0" />
+		<write_xml-46ftype functor="&lt;&lt;foreign(ftype, 1)&gt;&gt;" type="write_xml.ftype" arity="0" />
 	</foreign--1--write_xml-46mytype>
 	<pointer--1--write_xml-46mytype functor="pointer" type="write_xml.mytype" arity="1">
-		<c_pointer functor="c_pointer(0x0)" type="c_pointer" arity="0" />
+		<c_pointer functor="null" type="c_pointer" arity="0" />
 	</pointer--1--write_xml-46mytype>
 	<primitives--10--write_xml-46mytype functor="primitives" type="write_xml.mytype" arity="10">
 		<Int type="int">1</Int>
@@ -416,7 +413,7 @@
 						<Int type="int">123456</Int>
 						<Tuple functor="{}" type="{character, float}" arity="2">
 							<Char type="character">a</Char>
-							<Float type="float">1.2355322522e-97</Float>
+							<Float type="float">1.2355322522E-97</Float>
 						</Tuple>
 					</Tuple>
 				</a_tuple>
@@ -511,22 +508,19 @@
 								</a_pred>
 								<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
 									<t functor="t" type="write_xml.mytype" arity="1">
-										<Unknown functor="tree234" type="type_desc.type_desc" arity="2">
-											<Unknown functor="int" type="type_desc.type_desc" arity="0" />
-											<Unknown functor="string" type="type_desc.type_desc" arity="0" />
-										</Unknown>
+										<Unknown functor="some_type_desc" type="type_desc.type_desc" arity="0" />
 									</t>
 									<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
 										<ctor functor="ctor" type="write_xml.mytype" arity="1">
-											<Unknown functor="tree234.tree234/2" type="type_desc.type_ctor_desc" arity="0" />
+											<Unknown functor="some_type_ctor_desc" type="type_desc.type_ctor_desc" arity="0" />
 										</ctor>
 										<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
 											<foreign functor="foreign" type="write_xml.mytype" arity="1">
-												<Unknown functor="&lt;&lt;foreign(ftype, 0x1)&gt;&gt;" type="write_xml.ftype" arity="0" />
+												<Unknown functor="&lt;&lt;foreign(ftype, 1)&gt;&gt;" type="write_xml.ftype" arity="0" />
 											</foreign>
 											<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
 												<pointer functor="pointer" type="write_xml.mytype" arity="1">
-													<Unknown functor="c_pointer(0x0)" type="c_pointer" arity="0" />
+													<Unknown functor="null" type="c_pointer" arity="0" />
 												</pointer>
 												<List functor="[|]" type="list.list(write_xml.mytype)" arity="2">
 													<primitives functor="primitives" type="write_xml.mytype" arity="10">
@@ -580,4 +574,4 @@
 ok
 
 Result 10:
-type_not_ground(tvar513)
+type_not_ground(some_pseudo_type_desc)
make[3]: *** [../Mmake.common:138: write_xml.res] Error 1
make[3]: Target 'write_xml.runtest' not remade because of errors.
make[3]: Leaving directory '/mnt/testing/run/build/mercury-srcdist-rotd-2024-08-02/tests/hard_coded'