diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-12-12 21:09:09 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-12-12 21:09:09 +0000 |
| commit | c3d003d207ac27d639e18010dae6b7087ead1beb (patch) | |
| tree | 45e9b6e52d2737fdf74257a64276a9514252ce15 /gcc/fortran/intrinsic.c | |
| parent | 0736fd563fa409b16f4cf1c3a7e4c42051f8c6dc (diff) | |
| download | gcc-c3d003d207ac27d639e18010dae6b7087ead1beb.zip gcc-c3d003d207ac27d639e18010dae6b7087ead1beb.tar.gz gcc-c3d003d207ac27d639e18010dae6b7087ead1beb.tar.bz2 | |
re PR fortran/16581 (gfortran F90 bit intrinsics don't work with integer*{1,2,8})
2004-12-12 Steven G. Kargl <kargls@comcast.net>
PR fortran/16581
* check.c (gfc_check_iand, gfc_check_ibclr, gfc_check_ibits,
gfc_check_ibset, gfc_check_ieor, gfc_check_ior): Remove default
integer kind check; Issue error for -std=f95 when needed.
* intrinsic.c (add_functions): Change ieor from GFC_STD_GNU to
GFC_STD_F95.
* iresolve.c (gfc_resolve_iand, gfc_resolve_ieor, gfc_resolve_ior):
Promote arguments to same kind.
From-SVN: r92063
Diffstat (limited to 'gcc/fortran/intrinsic.c')
| -rw-r--r-- | gcc/fortran/intrinsic.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/intrinsic.c b/gcc/fortran/intrinsic.c index a079e86..2aa3f29 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -1375,11 +1375,11 @@ add_functions (void) make_generic ("ichar", GFC_ISYM_ICHAR, GFC_STD_F77); - add_sym_2 ("ieor", 1, 1, BT_INTEGER, di, GFC_STD_GNU, + add_sym_2 ("ieor", 1, 1, BT_INTEGER, di, GFC_STD_F95, gfc_check_ieor, gfc_simplify_ieor, gfc_resolve_ieor, i, BT_INTEGER, di, REQUIRED, j, BT_INTEGER, di, REQUIRED); - make_generic ("ieor", GFC_ISYM_IEOR, GFC_STD_GNU); + make_generic ("ieor", GFC_ISYM_IEOR, GFC_STD_F95); add_sym_3 ("index", 1, 1, BT_INTEGER, di, GFC_STD_F77, gfc_check_index, gfc_simplify_index, NULL, |