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:
parent
9bc856ddbf
commit
5b5afddf1d
|
@ -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
|
||||
|
|
|
@ -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. */
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -0,0 +1,3 @@
|
|||
! verifies that 0 in column six doesn't start a continuation line
|
||||
!234567890
|
||||
0 END
|
Loading…
Reference in New Issue