// { dg-do compile }
// { dg-options "-fdump-tree-original" }

// { dg-final { scan-tree-dump " __builtin_sqrt " "original" } }
extern(C) double sqrt(double);
double test_sqrt(double a) { return sqrt(a); }

// { dg-final { scan-tree-dump-not " __builtin_tan " "original" } }
pragma(mangle, "tan")
extern(C) double libc_tan(double);
double test_tan(double a) { return libc_tan(a); }

// { dg-final { scan-tree-dump " __builtin_malloc " "original" } }
// { dg-final { scan-assembler "mangle_override" } }
pragma(mangle, "mangle_override")
extern(C) void *malloc(size_t);
void* test_malloc(size_t a) { return malloc(a); }