cmd/INIT/m3.c

	m3.c revision 3f54fd611f536639ec30dd53c48e5ec1897cc7d9
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder/***********************************************************************
b58a5478c73bcb2408dfd5f4d35e14b15c72fd46Christian Maeder*                                                                      *
b58a5478c73bcb2408dfd5f4d35e14b15c72fd46Christian Maeder*               This software is part of the ast package               *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*          Copyright (c) 1994-2011 AT&T Intellectual Property          *
98890889ffb2e8f6f722b00e265a211f13b5a861Corneliu-Claudiu Prodescu*                      and is licensed under the                       *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*                 Eclipse Public License, Version 1.0                  *
3f69b6948966979163bdfe8331c38833d5d90ecdChristian Maeder*                    by AT&T Intellectual Property                     *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*                                                                      *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*                A copy of the License is available at                 *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*          http://www.eclipse.org/org/documents/epl-v10.html           *
b58a5478c73bcb2408dfd5f4d35e14b15c72fd46Christian Maeder*         (with md5 checksum b35adb5213ca9657e911e9befb180842)         *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*                                                                      *
89876b75747f59feeadde56f2c4950817fdca4ccChristian Maeder*              Information and Software Systems Research               *
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder*                            AT&T Research                             *
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder*                           Florham Park NJ                            *
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder*                                                                      *
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder*                 Glenn Fowler <gsf@research.att.com>                  *
bccea164bdfc2ddc3d1e20749bb5477a46eab3a6Christian Maeder*                                                                      *
8f1f53a2595bb239389fb5119ef590fa48166595Christian Maeder***********************************************************************/
1db8436e3bc935eec7ae680e1a4f6c11eb013270Christian Maeder/*
3141ac1ae0a0b9f86af05f439bc79316451b94f3Carsten Fischer * -lm test #3
9029484754c7b2037321e7cbd077580866845265Christian Maeder */
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder#include <math.h>
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maederint
9029484754c7b2037321e7cbd077580866845265Christian Maedermain()
9029484754c7b2037321e7cbd077580866845265Christian Maeder{
9029484754c7b2037321e7cbd077580866845265Christian Maeder    long double value = 0;
9029484754c7b2037321e7cbd077580866845265Christian Maeder    int     exp = 0;
9029484754c7b2037321e7cbd077580866845265Christian Maeder    int     r = 0;
9029484754c7b2037321e7cbd077580866845265Christian Maeder
f07bb197c32ccda6af72da82aa8029e4d6bfc99aChristian Maeder    r |= ldexpl(value, exp) != 0;
9029484754c7b2037321e7cbd077580866845265Christian Maeder    r |= frexpl(value, &exp) != 0;
9029484754c7b2037321e7cbd077580866845265Christian Maeder    return r;
9029484754c7b2037321e7cbd077580866845265Christian Maeder}
9029484754c7b2037321e7cbd077580866845265Christian Maeder