1! { dg-do run } 2! PR33253 namelist: reading back a string, also fixed writing with delimiters. 3! Test case modified from that of the PR by 4! Jerry DeLisle <jvdelisle@gcc.gnu.org> 5program main 6 implicit none 7 character(len=3) :: a 8 character(25) :: b 9 namelist /foo/ a 10 11 open(10, status="scratch", delim="quote") 12 a = 'a"a' 13 write(10,foo) 14 rewind 10 15 a = "" 16 read (10,foo) ! This gave a runtime error before the patch. 17 if (a.ne.'a"a') call abort 18 close (10) 19 20 open(10, status="scratch", delim="apostrophe") 21 a = "a'a" 22 write(10,foo) 23 rewind 10 24 a = "" 25 read (10,foo) 26 if (a.ne."a'a") call abort 27 close (10) 28 29 open(10, status="scratch", delim="none") 30 a = "a'a" 31 write(10,foo) 32 rewind (10) 33 read(10,"(a)") b 34 if (b .ne. "&FOO") call abort 35 read(10,"(a)") b 36 if (b .ne. " A=a'a") call abort 37 read(10,"(a)") b 38 if (b .ne. " /") call abort 39 close(10) 40end program main 41