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.h | |
| 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.h')
| -rw-r--r-- | gcc/fortran/intrinsic.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index bf2c80a..15171d1 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -63,6 +63,7 @@ try gfc_check_iand (gfc_expr *, gfc_expr *); try gfc_check_ibclr (gfc_expr *, gfc_expr *); try gfc_check_ibits (gfc_expr *, gfc_expr *, gfc_expr *); try gfc_check_ibset (gfc_expr *, gfc_expr *); +try gfc_check_ichar_iachar (gfc_expr *); try gfc_check_idnint (gfc_expr *); try gfc_check_ieor (gfc_expr *, gfc_expr *); try gfc_check_index (gfc_expr *, gfc_expr *, gfc_expr *); |