[Bug libfortran/67140] undefined reference to _gfortran_mvbits_i16

[sgk at troutmask dot apl.washington.edu]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67140

--- Comment #8 from Steve Kargl <sgk at troutmask dot apl.washington.edu> ---
On Mon, Aug 10, 2015 at 09:24:53PM +0000, hjl.tools at gmail dot com wrote:
> https://gcc.gnu.org/bugzilla/show_bug.cgi?id=67140
> 
> --- Comment #7 from H.J. Lu <hjl.tools at gmail dot com> ---
> (In reply to kargl from comment #6)
> > Fixed on trunk.  
> > 
> > The GFORTRAN_1.6 section of the symbol map where I've inserted
> > the _gfortan_mvbits_i16 symbol does not exist in 5-branch.  If
> > the other functions in this section are backported, then this
> > function can also be backported.
> 
> On Linux/x86, I got
> 
> ../../../src-trunk/libgfortran/intrinsics/mvbits.c:87:16: error: unknown type
> name ???GFC_INTEGER_16???
>  #  define TYPE GFC_INTEGER_16
>                 ^
> ../../../src-trunk/libgfortran/intrinsics/mvbits.c:36:29: note: in expansion of
> macro ???TYPE???
>  extern void SUB_NAME (const TYPE *, const int *, const int *, TYPE *,
> 

Sorry about that.  Can you tst this diff?

Index: intrinsics/mvbits.c
===================================================================
--- intrinsics/mvbits.c (revision 226764)
+++ intrinsics/mvbits.c (working copy)
@@ -84,6 +84,7 @@ SUB_NAME (const TYPE *from, const int *f
 #  undef TYPE
 #  undef UTYPE

+#if defined (HAVE_GFC_INTEGER_16)
 #  define TYPE GFC_INTEGER_16
 #  define UTYPE GFC_UINTEGER_16
 #  define SUB_NAME mvbits_i16
@@ -92,3 +93,4 @@ SUB_NAME (const TYPE *from, const int *f
 #  undef TYPE
 #  undef UTYPE
 #endif
+#endif