diff options
| author | Paul Brook <paul@codesourcery.com> | 2005-04-25 00:09:11 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2005-04-25 00:09:11 +0000 |
| commit | 860c8f3ba9bad8ddc21ab8b87b2881b4c7fda28d (patch) | |
| tree | 3658d9e25126c9de8a4bcb31050b0b21afdca803 /gcc/fortran/intrinsic.c | |
| parent | 1fb2fbeb218f505cd073a975b171eca5194bd6ef (diff) | |
| download | gcc-860c8f3ba9bad8ddc21ab8b87b2881b4c7fda28d.zip gcc-860c8f3ba9bad8ddc21ab8b87b2881b4c7fda28d.tar.gz gcc-860c8f3ba9bad8ddc21ab8b87b2881b4c7fda28d.tar.bz2 | |
re PR fortran/20879 (argument to ICHAR must have length one)
2005-04-25 Paul Brook <paul@codesourcery.com>
Steven G. Kargl <kargls@comcast.net>
PR fortran/20879
* check.c (gfc_check_ichar_iachar): New function.
* instinsic.h (gfc_check_ichar_iachar): Add prototype.
* intrinsic.c (add_functions): Use it.
* primary.c (match_varspec, gfc_match_rvalue): Clear incorrect
character expression lengths.
testsuite/
* gfortran.dg/ichar_1.f90: New file.
Co-Authored-By: Steven G. Kargl <kargls@comcast.net>
From-SVN: r98686
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 7336e63..0b50cdc 100644 --- a/gcc/fortran/intrinsic.c +++ b/gcc/fortran/intrinsic.c @@ -1342,7 +1342,7 @@ add_functions (void) make_generic ("huge", GFC_ISYM_NONE, GFC_STD_F95); add_sym_1 ("iachar", 1, 1, BT_INTEGER, di, GFC_STD_F95, - NULL, gfc_simplify_iachar, NULL, + gfc_check_ichar_iachar, gfc_simplify_iachar, NULL, c, BT_CHARACTER, dc, REQUIRED); make_generic ("iachar", GFC_ISYM_IACHAR, GFC_STD_F95); @@ -1384,7 +1384,7 @@ add_functions (void) make_generic ("ibset", GFC_ISYM_IBSET, GFC_STD_F95); add_sym_1 ("ichar", 1, 0, BT_INTEGER, di, GFC_STD_F77, - NULL, gfc_simplify_ichar, gfc_resolve_ichar, + gfc_check_ichar_iachar, gfc_simplify_ichar, gfc_resolve_ichar, c, BT_CHARACTER, dc, REQUIRED); make_generic ("ichar", GFC_ISYM_ICHAR, GFC_STD_F77); |