diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2024-02-13 14:32:21 -0800 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2024-02-14 07:57:53 -0800 |
| commit | b79d3e6a9284703b70688122f7d4955e7c50804a (patch) | |
| tree | 11cbb3dc71fe7c484465502c546e799a9c995966 /gcc | |
| parent | eafbb05c49957096d5118dfa661c0efba774bd8b (diff) | |
| download | gcc-b79d3e6a9284703b70688122f7d4955e7c50804a.zip gcc-b79d3e6a9284703b70688122f7d4955e7c50804a.tar.gz gcc-b79d3e6a9284703b70688122f7d4955e7c50804a.tar.bz2 | |
Fortran: Implement read_x for UTF-8 encoded files.
PR fortran/99210
libgfortran/ChangeLog:
* io/read.c (read_x): If UTF-8 encoding is enabled, use
read_utf8 to move one character over in the read buffer.
gcc/testsuite/ChangeLog:
* gfortran.dg/pr99210.f90: New test.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr99210.f90 | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr99210.f90 b/gcc/testsuite/gfortran.dg/pr99210.f90 new file mode 100644 index 0000000..9fd2fb4 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr99210.f90 @@ -0,0 +1,29 @@ +! { dg-do run } +! PR99210 X editing for reading file with encoding='utf-8' +program test_bug_format_x + use iso_fortran_env + integer, parameter :: u = selected_char_kind('ISO_10646') + + character(kind=u, len=1) a, b, a1, b1, b2 + + open(unit=10, file='test_bug_format_x.tmp', encoding='UTF-8') + + a = char(int(z'03B1'), u) + b = char(int(z'03B2'), u) + write(10, '(a1, a1)') a, b + + rewind(10) + read(10, '(a1, a1)') a1, b1 + + rewind(10) + read(10, '(1x, a1)') b2 + + close (10, status="delete") + if(a /= a1 .or. b /= b1) then + error stop 1 + end if + + if(b /= b2) then + error stop 2 + end if +end program test_bug_format_x |