diff options
| author | Tobias Burnus <tburnus@baylibre.com> | 2024-04-08 21:47:51 +0200 |
|---|---|---|
| committer | Tobias Burnus <tburnus@baylibre.com> | 2024-04-08 21:47:51 +0200 |
| commit | 477c8a82f38e353a8c6313b38197c70b12deea80 (patch) | |
| tree | 9f175d232922569c4b6148dc56a93e0ec0a1fee6 /libgfortran/io | |
| parent | f4f7c52472fa59993024e70848559d8bac2167ba (diff) | |
| download | gcc-477c8a82f38e353a8c6313b38197c70b12deea80.zip gcc-477c8a82f38e353a8c6313b38197c70b12deea80.tar.gz gcc-477c8a82f38e353a8c6313b38197c70b12deea80.tar.bz2 | |
Fortran: Accept again tab as alternative to space as separator [PR114304]
This fixes a side-effect of/regression caused by r14-9822-g93adf88cc6744a,
which was for the same PR.
PR libfortran/114304
libgfortran/ChangeLog:
* io/list_read.c (eat_separator): Accept tab as alternative to space.
gcc/testsuite/ChangeLog:
* gfortran.dg/pr114304-2.f90: New test.
Diffstat (limited to 'libgfortran/io')
| -rw-r--r-- | libgfortran/io/list_read.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/io/list_read.c b/libgfortran/io/list_read.c index b56f2a4..5bbbef2 100644 --- a/libgfortran/io/list_read.c +++ b/libgfortran/io/list_read.c @@ -463,7 +463,7 @@ eat_separator (st_parameter_dt *dtp) dtp->u.p.comma_flag = 0; c = next_char (dtp); - if (c == ' ') + if (c == ' ' || c == '\t') { eat_spaces (dtp); c = next_char (dtp); |