2 ! PR37294 Namelist I/O to array character internal units.
3 ! Test case from adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4 character(30) :: line(3)
9 if (line(1) .ne
. "&STUFF") STOP 1
10 if (line(2) .ne
. " N=123 ,") STOP 2
11 if (line(3) .ne
. " /") STOP 3