diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-14 23:11:04 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2007-07-14 23:11:04 +0000 |
| commit | 4ccd5f95f19d90935dbb048430cbc0b1fc75203f (patch) | |
| tree | cb6072d1b22add852e30552e5ec23a6e5ded7c79 /libgfortran/intrinsics | |
| parent | 6392d503a228b2ec14d9c49c65add03d076a0b0a (diff) | |
| download | gcc-4ccd5f95f19d90935dbb048430cbc0b1fc75203f.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@126646 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgfortran/intrinsics')
| -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 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; |