diff options
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-12 21:09:09 +0000 |
|---|---|---|
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-12-12 21:09:09 +0000 |
| commit | 4eee50ae667e03e77f0f3c6e7599c9479c16cd26 (patch) | |
| tree | 45e9b6e52d2737fdf74257a64276a9514252ce15 /gcc/fortran/intrinsic.c | |
| parent | 0c4202000c0727f3dc982e713da25b18a481bd83 (diff) | |
| download | gcc-4eee50ae667e03e77f0f3c6e7599c9479c16cd26.tar.gz | |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@92063 138bc75d-0d04-0410-961f-82ee72b054a4
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 a079e86374d..2aa3f294ac8 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, |