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 | |
| parent | 00f46785eb6b0fd29997e5fe5756e9ef141a1b11 (diff) | |
| download | gcc-37058415033503179d69f4d58e08dddae0a44142.tar.gz | |
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')
| -rw-r--r-- | libgfortran/ChangeLog | 6 | ||||
| -rw-r--r-- | libgfortran/intrinsics/mvbits.c | 8 |
2 files changed, 10 insertions, 4 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 25b5d4ca227..7f4a815a6b9 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,3 +1,9 @@ +2007-07-15 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> + + PR fortran/32357 + * intrinsics/mvbits.c: Change prototype so that FROMPOS, LEN and + TOPOS arguments are C int. + 2007-07-09 Jerry DeLisle <jvdelisle@gcc.gnu.org> PR libgfortran/32702 diff --git a/libgfortran/intrinsics/mvbits.c b/libgfortran/intrinsics/mvbits.c index a452fc98b3f..8e5813c2362 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; |