OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/36215 (Fortran bootstrap fails on _abs_c4.F90)

Browse Source 
PR fortran/36215

        * scanner.c (preprocessor_line): Allocate enough memory for a
        wide string.

        * gfortran.dg/include_3.f95: New test.

From-SVN: r135294
This commit is contained in:
Francois-Xavier Coudert 2008-05-14 14:23:01 +00:00 committed by François-Xavier Coudert
parent 349c316697
commit b0b14c7b87
4 changed files with 38 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -1,3 +1,9 @@
2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/36215
* scanner.c (preprocessor_line): Allocate enough memory for a
wide string.
2008-05-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/36176

2
gcc/fortran/scanner.c
View File

@ -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)

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2008-05-14 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
PR fortran/36215
* gfortran.dg/include_3.f95: New test.
2008-05-14 Ira Rosen <irar@il.ibm.com>
PR tree-optimization/36098

26
gcc/testsuite/gfortran.dg/include_3.f95 Normal file
View File

@ -0,0 +1,26 @@
# 1 "../../../trunk/libgfortran/generated/_abs_c4.F90"
# 1 "C:\\msys\\1.0.10\\home\\FX\\ibin\\i586-pc-mingw32\\libgfortran//"
# 1 "<built-in>"
# 1 "<command-line>"
# 1 "../../../trunk/libgfortran/generated/_abs_c4.F90"
! Comment here
# 1 "./config.h" 1
# 37 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
# 1 "./kinds.inc" 1
# 38 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
# 1 "./c99_protos.inc" 1
# 39 "../../../trunk/libgfortran/generated/_abs_c4.F90" 2
elemental function abs_c4 (parm)
complex (kind=4), intent (in) :: parm
real (kind=4) :: abs_c4
abs_c4 = abs (parm)
end function
! { dg-do compile }
! { dg-options "-fpreprocessed -g3" }