OSDN Git Service

gcc/fortran/
authortobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 27 Dec 2004 16:43:25 +0000 (16:43 +0000)
committertobi <tobi@138bc75d-0d04-0410-961f-82ee72b054a4>
Mon, 27 Dec 2004 16:43:25 +0000 (16:43 +0000)
commit4d66f715d6193759012f4ee9168084612cf8cdf0
treeb88e393afbb9bf77f96b70a52f9243489d970d7c
parent96541ee595d246720eaa4ea8bba72dac843898bb
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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92642 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/fortran/ChangeLog
gcc/fortran/trans-intrinsic.c
gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/g77/f90-intrinsic-bit.f [new file with mode: 0644]
libgfortran/ChangeLog
libgfortran/intrinsics/ishftc.c
libgfortran/intrinsics/mvbits.c
libgfortran/libgfortran.h