re PR libfortran/52539 (I/O: Wrong result for UTF-8/UCS-4 list-directed and namelist...

2014-05-17  Jerry DeLisle  <jvdelisle@gcc.gnu>

	PR libfortran/52539
	* gfortran.dg/namelist_utf8.f90: New test.

From-SVN: r210575

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d543cb3777a8333564f903caaf8a41453546c3b9..3c64403ef34a309362188998b4cb9aea88496404 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2014-05-17  Jerry DeLisle  <jvdelisle@gcc.gnu>
+
+       PR libfortran/52539
+       * gfortran.dg/namelist_utf8.f90: New test.
+
 2014-05-17  Paolo Carlini  <paolo.carlini@oracle.com>
 
        PR c++/52875

diff --git a/gcc/testsuite/gfortran.dg/namelist_utf8.f90 b/gcc/testsuite/gfortran.dg/namelist_utf8.f90
index c494b8c3b772c8352a6abb0c74f7a31cfb00a57e..6a9dde314ea5a454dc2cdf3913dd51329c2a1790 100644 (file)
--- a/gcc/testsuite/gfortran.dg/namelist_utf8.f90
+++ b/gcc/testsuite/gfortran.dg/namelist_utf8.f90
@@ -1,4 +1,4 @@
-! { dg-do run }
+! { dg-do run { xfail powerpc*-apple-darwin* } }
 ! PR52539 UTF-8 support for namelist read and write
 
 character(len=10, kind=4) :: str, str2
@@ -6,9 +6,9 @@ character(len=25, kind=4) :: str3
 
 namelist /nml/ str
 
-str = 4_'a'//char (int (z'4F60'),4)     &
+str = 4_'1a'//char (int (z'4F60'),4)     &
       //char (int (z'597D'), 4)//4_'b'
-
+open(6, encoding='utf-8')
 open(99, encoding='utf-8',form='formatted')
 write(99, '(3a)') '&nml str = "', str, '" /'
 write(99, '(a)') str
@@ -23,7 +23,7 @@ rewind(99)
 
 read(99,'(A)') str3
 if (str3 /= 4_'&nml str = "' // str // 4_'" /') call abort
-read(99,'(A)') str3
+read(99,*) str3
 if (str3 /= str) call abort
 
 close(99, status='delete')