/* n_pragma.c:  _Pragma() operator  */

/* based on the proposal to C99 by Bill Homer   */

#define Machine_B

#include "pragmas.h"

/* #pragma vfunction    */

Fast_call

void f(int n, double * a, double * b) {

/* #pragma ivdep    */

    Independent

    while(n-- > 0) {

        *a++ += *b++;

    }

}

#define f(N, A, B)  \

{   int n = (N), double * a = (A), double * b = (B); \

    Independent while(n-- > 0) { *a++ += *b++; } \

}

#define EXPRAG(x) _Pragma(#x)

#define PRAGMA(x) EXPRAG(x)

#define LIBFUNC xyz

int libfunc() { ... }

/* Direct the linker to define alternate entry points for libfunc. */

/* #pragma duplicate libfunc as (lib_func,xyz)  */

PRAGMA( duplicate libfunc as (lib_func,LIBFUNC) )

/* { dg-do preprocess }

   { dg-options "-std=c99" }

   { dg-final { if ![file exist n_pragma.i] { return }                  } }

   { dg-final { if \{ [grep n_pragma.i "#pragma ivdep"] != ""   \} \{   } }

   { dg-final { if \{ [grep n_pragma.i "#pragma vfunction"] != ""   \} \{   } }

   { dg-final { if \{ [grep n_pragma.i "#pragma duplicate libfunc as \\(lib_func,xyz\\)"] != "" \} \{   } }

   { dg-final { return \} \} \}                                         } }

   { dg-final { fail "n_pragma.c: _Pragma operator"                     } }

 */