diff options
Diffstat (limited to 'libgfortran/m4/set_exponent.m4')
| -rw-r--r-- | libgfortran/m4/set_exponent.m4 | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libgfortran/m4/set_exponent.m4 b/libgfortran/m4/set_exponent.m4 index 797906c97b5..91ba9523b98 100644 --- a/libgfortran/m4/set_exponent.m4 +++ b/libgfortran/m4/set_exponent.m4 @@ -27,11 +27,15 @@ 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"' include(`mtype.m4')dnl +`#if defined (HAVE_'real_type`) && defined (HAVE_SCALBN'Q`) && defined (HAVE_FREXP'Q`)' + extern real_type set_exponent_r`'kind (real_type s, GFC_INTEGER_4 i); export_proto(set_exponent_r`'kind); @@ -41,3 +45,5 @@ set_exponent_r`'kind (real_type s, GFC_INTEGER_4 i) int dummy_exp; return scalbn`'q (frexp`'q (s, &dummy_exp), i); } + +#endif |