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

parse.c (gfc_statement_next_fixed): (Change from Andy's tree) Detect bad continuation line in fixed form sources. 

fortran:
* parse.c (gfc_statement_next_fixed): (Change from Andy's tree)
Detect bad continuation line in fixed form sources.

testsuite:
* gfortran.fortran-torture/compile/noncontinuation_1.f90: New
test.

From-SVN: r81845
This commit is contained in:
Tobias Schlüter 2004-05-14 16:04:36 +02:00 committed by Tobias Schlüter
parent 9bc856ddbf
commit 5b5afddf1d
4 changed files with 24 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 @@
2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* parse.c (gfc_statement_next_fixed): (Change from Andy's tree)
Detect bad continuation line in fixed form sources.
2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/15205

13
gcc/fortran/parse.c
View File

@ -420,11 +420,20 @@ next_fixed (void)
}
/* Since this line starts a statement, it cannot be a continuation
of a previous statement. Hence we mostly ignore column 6. */
of a previous statement. If we see something here besides a
space or zero, it must be a bad continuation line. */
if (gfc_next_char_literal (0) == '\n')
c = gfc_next_char_literal (0);
if (c == '\n')
goto blank_line;
if (c != ' ' && c!= '0')
{
gfc_buffer_error (0);
gfc_error ("Bad continuation line at %C");
return ST_NONE;
}
/* Now that we've taken care of the statement label columns, we have
to make sure that the first nonblank character is not a '!'. If
it is, the rest of the line is a comment. */

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.fortran-torture/compile/noncontinuation_1.f90: New
test.
2004-05-14 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/14066

3
gcc/testsuite/gfortran.fortran-torture/compile/noncontinuation_1.f90 Normal file
View File

@ -0,0 +1,3 @@
! verifies that 0 in column six doesn't start a continuation line
!234567890
0 END