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

[thirdparty/gcc.git] / libgfortran / generated / in_unpack_i4.c

diff --git a/libgfortran/generated/in_unpack_i4.c b/libgfortran/generated/in_unpack_i4.c
index 8664b8c9925a196b4e37c2cf3f477655b2f0ed8b..6cf7bd2f273008fd7990e26ea3d6d48a46d00f65 100644 (file)
--- a/libgfortran/generated/in_unpack_i4.c
+++ b/libgfortran/generated/in_unpack_i4.c
@@ -34,6 +34,8 @@ Boston, MA 02110-1301, USA.  */
 #include <string.h>
 #include "libgfortran.h"
 
+#if defined (HAVE_GFC_INTEGER_4)
+
 void
 internal_unpack_4 (gfc_array_i4 * d, const GFC_INTEGER_4 * src)
 {
@@ -109,3 +111,4 @@ internal_unpack_4 (gfc_array_i4 * d, const GFC_INTEGER_4 * src)
     }
 }
 
+#endif