[m-rev.] diff: new disabled test case invalid/bad_detism.m

Zoltan Somogyi zs at cs.mu.OZ.AU
Tue Dec 23 14:33:08 AEDT 2003


tests/invalid/bad_detism.m:
	New test case to test a bug in the parser.

tests/invalid/Mmakefile:
	Add the new test case to the list of test case we don't yet pass.

Zoltan.

cvs diff: Diffing .
Index: Mmakefile
===================================================================
RCS file: /home/mercury/mercury1/repository/tests/invalid/Mmakefile,v
retrieving revision 1.144
diff -u -b -r1.144 Mmakefile
--- Mmakefile	1 Dec 2003 15:56:10 -0000	1.144
+++ Mmakefile	21 Dec 2003 23:39:18 -0000
@@ -189,6 +189,7 @@
 #	ho_default_func_4 (due to a bug in the mode-checker ---
 #			see XXX comment in inst_match:inst_matches_final_3)
 #	inst_matches_final_bug (due to same bug as ho_default_func_4)
+#	bad_detism (error check not yet implemented)
 
 #-----------------------------------------------------------------------------#
 
Index: bad_detism.m
===================================================================
RCS file: bad_detism.m
diff -N bad_detism.m
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ bad_detism.m	21 Dec 2003 23:39:47 -0000
@@ -0,0 +1,12 @@
+:- module bad_detism.
+
+:- interface.
+
+% There should be no determinism clause on a pred declaration without modes.
+
+:- pred p(string) is det.
+:- mode p(out) is det.
+
+:- implementation.
+
+p("xyzzy").
cvs diff: Diffing purity
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------



More information about the reviews mailing list