diff options
Diffstat (limited to 'libgfortran/generated/set_exponent_r4.c')
| -rw-r--r-- | libgfortran/generated/set_exponent_r4.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/generated/set_exponent_r4.c b/libgfortran/generated/set_exponent_r4.c index e646176..6b1be5d 100644 --- a/libgfortran/generated/set_exponent_r4.c +++ b/libgfortran/generated/set_exponent_r4.c @@ -27,10 +27,14 @@ You should have received a copy of the GNU General Public License along with libgfortran; see the file COPYING. If not, write to the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. */ + +#include "config.h" #include <math.h> #include "libgfortran.h" +#if defined (HAVE_GFC_REAL_4) && defined (HAVE_SCALBNF) && defined (HAVE_FREXPF) + extern GFC_REAL_4 set_exponent_r4 (GFC_REAL_4 s, GFC_INTEGER_4 i); export_proto(set_exponent_r4); @@ -40,3 +44,5 @@ set_exponent_r4 (GFC_REAL_4 s, GFC_INTEGER_4 i) int dummy_exp; return scalbnf (frexpf (s, &dummy_exp), i); } + +#endif |