Commit 5b5afddf by Tobias Schlüter Committed by Tobias Schlüter

parse.c (gfc_statement_next_fixed): (Change from Andy's tree) Detect bad…

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
parent 9bc856dd
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
* iresolve.c (gfc_resolve_nearest): Add new function.
* intrinsic.h: ... declare it here.
......
......@@ -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. */
......
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
* gfortran.fortran-torture/compile/do_1.f90: New test.
......
! verifies that 0 in column six doesn't start a continuation line
!234567890
0 END
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment