diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-07-14 23:11:04 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2007-07-14 23:11:04 +0000 |
| commit | 37058415033503179d69f4d58e08dddae0a44142 (patch) | |
| tree | cb6072d1b22add852e30552e5ec23a6e5ded7c79 /libgfortran/intrinsics/mvbits.c | |
| parent | 00f46785eb6b0fd29997e5fe5756e9ef141a1b11 (diff) | |
| download | gcc-37058415033503179d69f4d58e08dddae0a44142.zip gcc-37058415033503179d69f4d58e08dddae0a44142.tar.gz gcc-37058415033503179d69f4d58e08dddae0a44142.tar.bz2 | |
re PR fortran/32357 (MVBITS gives wrong-code on big-endian with -fdefault-integer-8)
PR fortran/32357
* iresolve.c (gfc_resolve_mvbits): Convert FROMPOS, LEN and TOPOS
to C int.
* intrinsics/mvbits.c: Change prototype so that FROMPOS, LEN and
TOPOS arguments are C int.
* gfortran.dg/mvbits_2.f90: New test.
From-SVN: r126646
Diffstat (limited to 'libgfortran/intrinsics/mvbits.c')
| -rw-r--r-- | libgfortran/intrinsics/mvbits.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c index a452fc9..8e5813c2 100644 --- a/libgfortran/intrinsics/mvbits.c +++ b/libgfortran/intrinsics/mvbits.c @@ -38,13 +38,13 @@ Boston, MA 02110-1301, USA. */ /* MVBITS copies LEN bits starting at bit position FROMPOS from FROM into TO, starting at bit position TOPOS. */ -extern void SUB_NAME (const TYPE *, const GFC_INTEGER_4 *, - const GFC_INTEGER_4 *, TYPE *, const GFC_INTEGER_4 *); +extern void SUB_NAME (const TYPE *, const int *, const int *, TYPE *, + const int *); export_proto(SUB_NAME); void -SUB_NAME (const TYPE *from, const GFC_INTEGER_4 *frompos, - const GFC_INTEGER_4 *len, TYPE *to, const GFC_INTEGER_4 *topos) +SUB_NAME (const TYPE *from, const int *frompos, const int *len, TYPE *to, + const int *topos) { TYPE oldbits, newbits, lenmask; |