mirror of
git://gcc.gnu.org/git/gcc.git
synced 2025-03-15 22:21:53 +08:00
re PR fortran/39811 (Bogus warning for valid continuation lines)
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:
parent
9c650d90ab
commit
47b0b4fa4f
@ -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
|
||||
|
@ -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;
|
||||
}
|
||||
|
@ -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
15
gcc/testsuite/gfortran.dg/continuation_11.f90
Normal 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
|
Loading…
x
Reference in New Issue
Block a user