[gfortran] Make gfortran pass g77 test f90-intrinsic-bit.f90

Paul Brook paul@codesourcery.com
Mon Dec 27 13:01:00 GMT 2004


> 2004-12-14  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
>
> libgfortran/:
>  * intrinsics/ishftc.c: Update copyright years.
>  (ishftc8): Change 'shift' and 'size' to GFC_INTEGER_4.
>  * intrinsics/mvbits.c: Correcty non-ASCII character in my name. Add
>  implementations for GFC_INTEGER_{1|2}.
> gcc/fortran/:
>  * trans-intrinsic.c (gfc_conv_intrinsic_ishft): Change to logical
>  shift.  Call fold.  Remove 0-bit shift shortcut.
>  (gfc_conv_intrinsic_ishftc): Convert first argument to at least 4
>  bytes bits.  Convert 2nd and 3rd argument to 4 bytes.  Convert result
>  if width(arg 1) < 4 bytes.  Call fold.

Ok with one change:

> +       tree int4type = gfc_type_for_size (32, 0);

gfc_get_int_type (4);

Paul



More information about the Gcc-patches mailing list