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>
10 open(10, status
="scratch", delim
="quote")
15 read (10,foo
) ! This gave a runtime error before the patch.
16 if (a
.ne
.'a"a') call abort
19 open(10, status
="scratch", delim
="apostrophe")
25 if (a
.ne
."a'a") call abort
28 open(10, status
="scratch", delim
="none")
34 if (a
.ne
."a'a") call abort