diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2019-09-05 20:13:00 +0000 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gcc.gnu.org> | 2019-09-05 20:13:00 +0000 |
| commit | 3c0f026505aca54c200b36870256c886b05eb4ff (patch) | |
| tree | 46d1956bc9e46a12f12f38967acbb25e024bfc87 /gcc/fortran/parse.c | |
| parent | 0e521c64613e0407bd086a26322402b29daeb370 (diff) | |
| download | gcc-3c0f026505aca54c200b36870256c886b05eb4ff.zip gcc-3c0f026505aca54c200b36870256c886b05eb4ff.tar.gz gcc-3c0f026505aca54c200b36870256c886b05eb4ff.tar.bz2 | |
re PR fortran/91496 (!GCC$ directives error if mistyped or unknown)
2019-09-05 Harald Anlauf <anlauf@gmx.de>
PR fortran/91496
* parse.c (parse_executable): Improve error messages for
improperly placed pragmas not preceeding a loop.
PR fortran/91496
* gfortran.dg/directive_unroll_5.f90: Adjust error message.
From-SVN: r275442
Diffstat (limited to 'gcc/fortran/parse.c')
| -rw-r--r-- | gcc/fortran/parse.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/gcc/fortran/parse.c b/gcc/fortran/parse.c index caea16b..5bd04b8 100644 --- a/gcc/fortran/parse.c +++ b/gcc/fortran/parse.c @@ -5541,16 +5541,17 @@ parse_executable (gfc_statement st) } if (directive_unroll != -1) - gfc_error ("%<GCC unroll%> directive does not commence a loop at %C"); + gfc_error ("%<GCC unroll%> directive not at the start of a loop at %C"); if (directive_ivdep) - gfc_error ("%<GCC ivdep%> directive does not commence a loop at %C"); + gfc_error ("%<GCC ivdep%> directive not at the start of a loop at %C"); if (directive_vector) - gfc_error ("%<GCC vector%> directive does not commence a loop at %C"); + gfc_error ("%<GCC vector%> directive not at the start of a loop at %C"); if (directive_novector) - gfc_error ("%<GCC novector%> directive does not commence a loop at %C"); + gfc_error ("%<GCC novector%> " + "directive not at the start of a loop at %C"); st = next_statement (); } |