| commit | 7ad1f5f6f908c6cc8c276693e5dfe03214f69f88 | |
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 16 May 2009 16:53:02 +0000 (16 16:53 +0000) | ||
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | |
| Sat, 16 May 2009 16:53:02 +0000 (16 16:53 +0000) | ||
| tree | c2d721e1845abbc3569797c630078a90a7ba5746 | treesnapshot (tar.gz zip) |
| parent | 38c0064e39c5379fc02a38d08c3a25be97b233fc | commitdiff |
PR fortran/31243
* resolve.c (resolve_substring): Don't allow too large substring
indexes.
(gfc_resolve_substring_charlen): Fix typo.
(gfc_resolve_character_operator): Fix typo.
(resolve_charlen): Catch unreasonably large string lengths.
* simplify.c (gfc_simplify_len): Don't error out on LEN
range checks.
* gcc/testsuite/gfortran.dg/string_1.f90: New test.
* gcc/testsuite/gfortran.dg/string_2.f90: New test.
* gcc/testsuite/gfortran.dg/string_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147619 138bc75d-0d04-0410-961f-82ee72b054a4
* resolve.c (resolve_substring): Don't allow too large substring
indexes.
(gfc_resolve_substring_charlen): Fix typo.
(gfc_resolve_character_operator): Fix typo.
(resolve_charlen): Catch unreasonably large string lengths.
* simplify.c (gfc_simplify_len): Don't error out on LEN
range checks.
* gcc/testsuite/gfortran.dg/string_1.f90: New test.
* gcc/testsuite/gfortran.dg/string_2.f90: New test.
* gcc/testsuite/gfortran.dg/string_3.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@147619 138bc75d-0d04-0410-961f-82ee72b054a4
| gcc/fortran/ChangeLog | diffblobblamehistory | |
| gcc/fortran/resolve.c | diffblobblamehistory | |
| gcc/fortran/simplify.c | diffblobblamehistory | |
| gcc/testsuite/ChangeLog | diffblobblamehistory | |
| gcc/testsuite/gfortran.dg/string_1.f90 | [new file with mode: 0644] | blob |
| gcc/testsuite/gfortran.dg/string_2.f90 | [new file with mode: 0644] | blob |
| gcc/testsuite/gfortran.dg/string_3.f90 | [new file with mode: 0644] | blob |