diff options
author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-14 14:23:01 +0000 |
---|---|---|
committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2008-05-14 14:23:01 +0000 |
commit | b0b14c7b87bc8456c809b7b6017c2918403350bf (patch) | |
tree | edf0d4c0680182ee2fa42bbadc0eda3ab859d4ea /gcc/fortran/scanner.c | |
parent | 349c31669777d87db0e7ec437d8b5bd5499d74d6 (diff) | |
download | gcc-b0b14c7b87bc8456c809b7b6017c2918403350bf.zip gcc-b0b14c7b87bc8456c809b7b6017c2918403350bf.tar.gz gcc-b0b14c7b87bc8456c809b7b6017c2918403350bf.tar.bz2 |
re PR fortran/36215 (Fortran bootstrap fails on _abs_c4.F90)
PR fortran/36215
* scanner.c (preprocessor_line): Allocate enough memory for a
wide string.
* gfortran.dg/include_3.f95: New test.
From-SVN: r135294
Diffstat (limited to 'gcc/fortran/scanner.c')
-rw-r--r-- | gcc/fortran/scanner.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/scanner.c b/gcc/fortran/scanner.c index 21b9311..13e0615 100644 --- a/gcc/fortran/scanner.c +++ b/gcc/fortran/scanner.c @@ -1570,7 +1570,7 @@ preprocessor_line (gfc_char_t *c) if (unescape) { gfc_char_t *s = wide_filename; - gfc_char_t *d = gfc_getmem (c - wide_filename - unescape); + gfc_char_t *d = gfc_get_wide_string (c - wide_filename - unescape); wide_filename = d; while (*s) |