[gfortran] Make gfortran pass g77 test f90-intrinsic-bit.f90
Tobias Schlüter
tobias.schlueter@physik.uni-muenchen.de
Thu Dec 16 13:59:00 GMT 2004
Tobias Schlüter wrote:
> *************** SUB_NAME (const TYPE *from, const GFC_IN
> *** 48,53 ****
> --- 48,69 ----
> #endif
>
> #ifndef SUB_NAME
> + # define TYPE GFC_INTEGER_1
> + # define UTYPE GFC_UINTEGER_1
> + # define SUB_NAME mvbits_i1
> + # include "mvbits.c"
> + # undef SUB_NAME
> + # undef TYPE
> + # undef UTYPE
> +
> + # define TYPE GFC_INTEGER_2
> + # define UTYPE GFC_UINTEGER_2
> + # define SUB_NAME mvbits_i2
> + # include "mvbits.c"
> + # undef SUB_NAME
> + # undef TYPE
> + # undef UTYPE
> +
> # define TYPE GFC_INTEGER_4
> # define UTYPE GFC_UINTEGER_4
> # define SUB_NAME mvbits_i4
This hunk should be complemented by adding the appropriate typedefs to
libgfortran.h, as appended. I forgot to include this file when preparing the
original diff.
- Tobi
2004-12-16 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* libgfortran/libgfortran.h (GFC_UINTEGER_1, GFC_UINTEGER_2): Define.
Index: libgfortran.h
===================================================================
RCS file: /cvs/gcc/gcc/libgfortran/libgfortran.h,v
retrieving revision 1.18
diff -u -p -r1.18 libgfortran.h
--- libgfortran.h 14 Dec 2004 10:43:32 -0000 1.18
+++ libgfortran.h 16 Dec 2004 13:54:41 -0000
@@ -189,6 +189,8 @@ typedef int8_t GFC_INTEGER_1;
typedef int16_t GFC_INTEGER_2;
typedef int32_t GFC_INTEGER_4;
typedef int64_t GFC_INTEGER_8;
+typedef uint8_t GFC_UINTEGER_1;
+typedef uint16_t GFC_UINTEGER_2;
typedef uint32_t GFC_UINTEGER_4;
typedef uint64_t GFC_UINTEGER_8;
typedef GFC_INTEGER_4 GFC_LOGICAL_4;
More information about the Gcc-patches
mailing list