diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/utf8_1.f03')
-rw-r--r-- | gcc/testsuite/gfortran.dg/utf8_1.f03 | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/gcc/testsuite/gfortran.dg/utf8_1.f03 b/gcc/testsuite/gfortran.dg/utf8_1.f03 index c07a6b85ab4..e151dd5fa13 100644 --- a/gcc/testsuite/gfortran.dg/utf8_1.f03 +++ b/gcc/testsuite/gfortran.dg/utf8_1.f03 @@ -17,14 +17,14 @@ program test1 string3 = "abcdefghijklmnopqrstuvwxyz" read(10,'(a)') string1 read(10,'(a)') string2 - if (string1 /= k4_"This is Greek: \u039f\u03cd\u03c7\u03af") call abort - if (len(trim(string1)) /= 20) call abort + if (string1 /= k4_"This is Greek: \u039f\u03cd\u03c7\u03af") STOP 1 + if (len(trim(string1)) /= 20) STOP 2 if (string2 /= k4_" Jerry in Japanese is: \u30b8\u30a8\u30ea\u30fc")& - & call abort - if (len(string2) /= 30) call abort + & STOP 3 + if (len(string2) /= 30) STOP 4 rewind(10) read(10,'(a)') string3 - if (string3 /= "This is Greek: ????") call abort + if (string3 /= "This is Greek: ????") STOP 5 end program test1 ! The following examples require UTF-8 enabled editor to see correctly. ! ジエリー Sample of Japanese characters. |