(* FLAG --nested-comments *)

Program Nest15;

#define FOO Write (* This is a (* nested \
  multiline *) comment in a C directive *) \
  ('O')
#undef BAR (* This is a (* nested \
  multiline *) comment in a C directive *)

begin
#ifdef FOO (* This is a (* nested \
  multiline *) comment in a C ifdef *)
  FOO;
#else (* This is a (* nested \
  multiline *) comment in a C else *)
  WriteLn ('failed');
#endif (* This is a (* nested \
  multiline *) comment in a C endif *)
#ifdef BAR (* This is a (* nested \
  multiline *) comment in a C ifdef *)
  WriteLn ('failed');
#else (* This is a (* nested \
  multiline *) comment in a C else *)
  WriteLn ('K')
#endif (* This is a (* nested \
  multiline *) comment in a C endif *)
end.
