Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /tests/trunk/bugs/tests.obsolete/bug361.sml
ViewVC logotype

View of /tests/trunk/bugs/tests.obsolete/bug361.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2460 - (download) (annotate)
Sat Apr 28 20:18:10 2007 UTC (12 years, 1 month ago) by gkuan
File size: 454 byte(s)
(* bug361.sml *)
(* Problem: Error: Compiler bug: Functor.applyFunctor.insttyc *)

signature AA =
sig
  datatype s  =  a of s
end;  (* signature AA *)

signature BB =
sig
  structure A : AA
end;  (* signature BB *)

signature CC =
sig
  structure B : BB
  type v
end;  (* signature CC *)

functor F (structure B : BB) : CC =
struct
  structure B = B
  structure A = B.A
  open A
  type u = s
end; (* functor F *)

structure C : CC = F (structure B = B);

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0