tiny+ 源代码

/* Driver for routine qroot */ #include #include #define NRANSI #include "nr.h" #include "nrutil.h" #define N 6 /* deg…

#include #define SWAP(a,b) {dum=(a);(a)=(b);(b)=dum;} #define TINY 1.0e-20 void bandec(float **a, unsigned long n, int m1, i…

! { dg-do run } ! Test program inspired by bug report from Walt Brainerd. ! http://gcc.gnu.org/ml/fortran/2005-04/msg00132.html pr…

! { dg-do run } program tiny2 real(4) x4 real(8) x8 x4 = tiny(x4) x8 = tiny(x8) if (minexponent(x4) /= exponent(x4)) cal…

#include struct tiny { char c; char d; char e; }; f (int n, ...) { struct tiny x; int i; va_list ap; va_start (a…

struct tiny { short c; short d; }; f (int n, struct tiny x, struct tiny y, struct tiny z, long l) { if (x.c != 10) abor…

struct tiny { char c; char d; }; f (int n, struct tiny x, struct tiny y, struct tiny z, long l) { if (x.c != 10) abort(…

#include struct tiny { short c; }; f (int n, ...) { struct tiny x; int i; va_list ap; va_start (ap,n); for (i = 0;…

struct tiny { char c; char d; char e; char f; }; f (int n, struct tiny x, struct tiny y, struct tiny z, long l) { if (x…

struct tiny { char c; }; f (int n, struct tiny x, struct tiny y, struct tiny z, long l) { if (x.c != 10) abort(); if (…