guile-gcc/tests/pragma.c

/* Guile-GCC
   Copyright (C) 2012 Ludovic Courtès <ludo@gnu.org>

   This file is part of Guile-GCC.

   Guile-GCC is free software: you can redistribute it and/or modify
   it under the terms of the GNU General Public License as published by
   the Free Software Foundation, either version 3 of the License, or
   (at your option) any later version.

   Guile-GCC is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with Guile-GCC.  If not, see <http://www.gnu.org/licenses/>.  */

/* (instructions run (cflags "-fplugin-arg-guile-load=pragma.scm")) */

#include <stdlib.h>

int
main ()
{
#pragma guile lex				\
  "hello" /* (note "hello") */			\
  "world" /* (note "world") */

#pragma guile goodbye			/* (note "hello, world from main") */

  /* Should not be reached.  */
  return EXIT_FAILURE;
}