mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-03-15 23:41:24 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/39811 (Bogus warning for valid continuation lines)

Browse Source 
2009-04-20  Tobias Burnus  <burnus@net-b.de>

        PR fortran/39811
        * scanner.c (load_line): Fix bogus "&" compile-time diagnostic.

2009-04-20  Tobias Burnus  <burnus@net-b.de>

        PR fortran/39811
        * gfortran.dg/continuation_11.f90: New test.

From-SVN: r146460
This commit is contained in:
Tobias Burnus 2009-04-21 00:19:25 +02:00
parent 9c650d90ab
commit 47b0b4fa4f
4 changed files with 30 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View File

@ -1,3 +1,8 @@
2009-04-20 Tobias Burnus <burnus@net-b.de>
PR fortran/39811
* scanner.c (load_line): Fix bogus "&" compile-time diagnostic.
2009-04-20 Paul Thomas <pault@gcc.gnu.org>
PR fortran/39800

5
gcc/fortran/scanner.c
View File

@ -1404,7 +1404,10 @@ load_line (FILE *input, gfc_char_t **pbuf, int *pbuflen, const int *first_char)
if (c == '&')
{
if (seen_ampersand)
seen_ampersand = 0;
{
seen_ampersand = 0;
seen_printable = 1;
}
else
seen_ampersand = 1;
}

7
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2009-04-20 Tobias Burnus <burnus@net-b.de>
PR fortran/39811
* gfortran.dg/continuation_11.f90: New test.
2009-04-21 Manuel Lopez-Ibanez <manu@gcc.gnu.org>
PR c++/13358
@ -9,7 +14,7 @@
* g++.dg/warn/pr13358-3.C: New.
* g++.dg/warn/pr13358-4.C: New.
2009-04-20 Andrew Pinski <andrew_pinski@playstation.sony.com>
2009-04-20 Andrew Pinski <andrew_pinski@playstation.sony.com>
* gcc.dg/framework-2.c: Fix up for non existent includes
being fatal errors now.

15
gcc/testsuite/gfortran.dg/continuation_11.f90 Normal file
View File

@ -0,0 +1,15 @@
! { dg-do run }
! { dg-options "-Wall -pedantic" }
! Before a bogus warning was printed
!
! PR fortran/39811
!
implicit none
character(len=70) :: str
write(str,'(a)') 'Print rather a lot of ampersands &&&&&
&&&&&
&&&&&'
if (len(trim(str)) /= 44 &
.or. str /= 'Print rather a lot of ampersands &&&&&&&&&&&') &
call abort()
end