https://gcc.gnu.org/bugzilla/show_bug.cgi?id=114304
Jerry DeLisle <jvdelisle at gcc dot gnu.org> changed: What |Removed |Added ---------------------------------------------------------------------------- Assignee|unassigned at gcc dot gnu.org |jvdelisle at gcc dot gnu.org --- Comment #8 from Jerry DeLisle <jvdelisle at gcc dot gnu.org> --- This gets around the bogus error and makes sense to me. However with your reduced test case I get and EOF error later. I also get this EOF witt gfortran 9. I have not checked 10, 11, or 12 yet. If I can build lapack cleanly I will push this as sort of obvious. $ git diff diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index e38e9a84976..c23c2bb2048 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -481,10 +481,10 @@ eat_separator (st_parameter_dt *dtp) break; case ';': - if (dtp->u.p.current_unit->decimal_status == DECIMAL_POINT) + if (dtp->u.p.current_unit->decimal_status == DECIMAL_COMMA) { generate_error (&dtp->common, LIBERROR_READ_VALUE, - "Semicolon not allowed as separator with DECIMAL='point'"); + "Semicolon not allowed as separator with DECIMAL='comma'"); unget_char (dtp, c); break; }