| commit | 10f8ef8c5d531919af400cdfe6b246cce39c43e7 | |
| author | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 25 Apr 2005 00:09:11 +0000 (25 00:09 +0000) | ||
| committer | pbrook <pbrook@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Mon, 25 Apr 2005 00:09:11 +0000 (25 00:09 +0000) | ||
| tree | 3658d9e25126c9de8a4bcb31050b0b21afdca803 | treesnapshot (tar.gz zip) |
| parent | 0f027989d1b7212abd5f855c7e363cdaac14bf77 | commitdiff |
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98686 138bc75d-0d04-0410-961f-82ee72b054a4
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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@98686 138bc75d-0d04-0410-961f-82ee72b054a4