diff options
| author | Tobias Schlüter <tobias.schlueter@physik.uni-muenchen.de> | 2004-12-27 17:43:25 +0100 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-12-27 17:43:25 +0100 |
| commit | 56746a074523e783b1f1de26b4c23c1be9616ac1 (patch) | |
| tree | b88e393afbb9bf77f96b70a52f9243489d970d7c /gcc/fortran/trans-expr.c | |
| parent | 64092f8bc204184c4a78740dab1625753d61318e (diff) | |
| download | gcc-56746a074523e783b1f1de26b4c23c1be9616ac1.zip gcc-56746a074523e783b1f1de26b4c23c1be9616ac1.tar.gz gcc-56746a074523e783b1f1de26b4c23c1be9616ac1.tar.bz2 | |
trans-intrinsic.c (gfc_conv_intrinsic_ishft): Change to logicalshift.
gcc/fortran/
* trans-intrinsic.c (gfc_conv_intrinsic_ishft): Change to
logicalshift. 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.
libgfortran/
* libgfortran/libgfortran.h (GFC_UINTEGER_1, GFC_UINTEGER_2):
Define.
* 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 and GFC_INTEGER_2.
gcc/testsuite/
* gfortran.dg/g77/f90-intrinsic-bit.f: New.
From-SVN: r92642
Diffstat (limited to 'gcc/fortran/trans-expr.c')
0 files changed, 0 insertions, 0 deletions