re PR libfortran/19308 (I/O library should support more real and integer kinds)

[thirdparty/gcc.git] / libgfortran / generated / _cosh_r4.F90

diff --git a/libgfortran/generated/_cosh_r4.f90 b/libgfortran/generated/_cosh_r4.F90
similarity index 92%
rename from libgfortran/generated/_cosh_r4.f90
rename to libgfortran/generated/_cosh_r4.F90
index 7fab9fc404d8db1dd492bf4d040381a834c1a81c..289c9bc0e24a1856f62dc6dfc33480a805d3ec77 100644 (file)
--- a/libgfortran/generated/_cosh_r4.f90
+++ b/libgfortran/generated/_cosh_r4.F90
@@ -30,9 +30,22 @@
 !This file is machine generated.
 
 
+
+
+
+#include "config.h"
+#include "kinds.inc"
+#include "c99_protos.inc"
+
+#if defined (HAVE_GFC_REAL_4)
+#ifdef HAVE_COSHF
+
 elemental function specific__cosh_r4 (parm)
    real (kind=4), intent (in) :: parm
    real (kind=4) :: specific__cosh_r4
 
    specific__cosh_r4 = cosh (parm)
 end function
+
+#endif
+#endif