]> git.ipfire.org Git - thirdparty/gcc.git/blob - gcc/testsuite/gm2/pimlib/run/pass/limittests.c
Merge modula-2 front end onto gcc.
[thirdparty/gcc.git] / gcc / testsuite / gm2 / pimlib / run / pass / limittests.c
1 #include <math.h>
2 #include <stdio.h>
3
4 int main ()
5 {
6 double a = 1.0/0.0;
7
8 if (! isfinite (a))
9 printf ("infinity detected\n");
10
11 a = 1.0/1.0;
12
13 if (isfinite (a))
14 printf ("number is now finite\n");
15 return 0;
16 }