procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

parse.c (next_free, next_fixed): Allow ";" as first character.

Browse source 
2010-06-25  Tobias Burnus  <burnus@net-b.de>

        * parse.c (next_free, next_fixed): Allow ";" as first character.

2010-06-25  Tobias Burnus  <burnus@net-b.de>

        * gfortran.dg/semicolon_fixed.f: Update.
        * gfortran.dg/semicolon_fixed_2.f: New.
        * gfortran.dg/semicolon_free_2.f90: New.
        * gfortran.dg/semicolon_free.f90: Update.

From-SVN: r161405
This commit is contained in:
Tobias Burnus 2010-06-25 21:01:04 +02:00
parent 8e7745dce2
commit c6c73c51ca
7 changed files with 48 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View file

@ -1,3 +1,7 @@
2010-06-25 Tobias Burnus <burnus@net-b.de>
* parse.c (next_free, next_fixed): Allow ";" as first character.
2010-06-24 Tobias Burnus <burnus@net-b.de>
PR fortran/44614

10
gcc/fortran/parse.c
View file

@ -717,7 +717,9 @@ next_free (void)
if (at_bol && c == ';')
{
gfc_error_now ("Semicolon at %C needs to be preceded by statement");
if (!(gfc_option.allow_std & GFC_STD_F2008))
gfc_error_now ("Fortran 2008: Semicolon at %C without preceding "
"statement");
gfc_next_ascii_char (); /* Eat up the semicolon. */
return ST_NONE;
}
@ -853,7 +855,11 @@ next_fixed (void)
if (c == ';')
{
gfc_error_now ("Semicolon at %C needs to be preceded by statement");
if (digit_flag)
gfc_error_now ("Semicolon at %C needs to be preceded by statement");
else if (!(gfc_option.allow_std & GFC_STD_F2008))
gfc_error_now ("Fortran 2008: Semicolon at %C without preceding "
"statement");
return ST_NONE;
}

9
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,10 @@
2010-06-25 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/semicolon_fixed.f: Update.
* gfortran.dg/semicolon_fixed_2.f: New.
* gfortran.dg/semicolon_free_2.f90: New.
* gfortran.dg/semicolon_free.f90: Update.
2010-06-25 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/44448
@ -57,7 +64,7 @@
2010-06-24 Andi Kleen <ak@linux.intel.com>
* c-c++-common/warn-omitted-condop.c: New.
* c-c++-common/warn-omitted-condop.c: New.
2010-06-24 Tobias Burnus <burnus@net-b.de>

8
gcc/testsuite/gfortran.dg/semicolon_fixed.f
View file

@ -1,9 +1,11 @@
! { dg-do compile }
! PR 19259 Semicolon cannot start a line
! { dg-do options "-std=f2003" }
!
! PR 19259 Semicolon cannot start a line (in F2003)
x=1; y=1;
x=2;;
x=3;
; ! { dg-error "Semicolon at" }
;; ! { dg-error "Semicolon at" }
; ! { dg-error "Fortran 2008: Semicolon at" }
;; ! { dg-error "Fortran 2008: Semicolon at" }
900 ; ! { dg-error "Semicolon at" }
end

12
gcc/testsuite/gfortran.dg/semicolon_fixed_2.f Normal file
View file

@ -0,0 +1,12 @@
! { dg-do compile }
! { dg-do options "-std=f2008" }
! PR 19259 Semicolon cannot start a line
! but it F2008 it can!
x=1; y=1;
x=2;;
x=3;
; ! OK
;; ! OK
900 ; ! { dg-error "Semicolon at" }
end

1
gcc/testsuite/gfortran.dg/semicolon_free.f90
View file

@ -1,4 +1,5 @@
! { dg-do compile }
! { dg-options "-std=f2003" }
! PR 19259 Semicolon cannot start a line
x=1; y=1;
x=2;;

10
gcc/testsuite/gfortran.dg/semicolon_free_2.f90 Normal file
View file

@ -0,0 +1,10 @@
! { dg-do compile }
! { dg-options "-std=f2008" }
! PR 19259 Semicolon cannot start a line
x=1; y=1;
x=2;;
x=3;
; ! OK
;; ! OK
111 ; ! { dg-error "Semicolon at" }
end