1! { dg-do run }
2! PR56786 Error on embedded spaces
3integer :: i(3)
4namelist /nml/ i
5
6i = -42
7open(99,status='scratch')
8write(99,'(a)') '&nml i(3 ) = 5 /'
9rewind(99)
10read(99,nml=nml)
11close(99)
12if (i(1)/=-42 .or. i(2)/=-42 .or. i(3)/=5) call abort()
13
14! Shorten the file so the read hits EOF
15
16open(99,status='scratch')
17write(99,'(a)') '&nml i(3 ) = 5 '
18rewind(99)
19read(99,nml=nml, end=30)
20call abort()
21! Shorten some more
22 30 close(99)
23open(99,status='scratch')
24write(99,'(a)') '&nml i(3 ) ='
25rewind(99)
26read(99,nml=nml, end=40)
27call abort()
28! Shorten some more
29 40 close(99)
30open(99,status='scratch')
31write(99,'(a)') '&nml i(3 )'
32rewind(99)
33read(99,nml=nml, end=50)
34call abort()
35! Shorten some more
36 50 close(99)
37open(99,status='scratch')
38write(99,'(a)') '&nml i(3 '
39rewind(99)
40read(99,nml=nml, end=60)
41call abort()
42 60 close(99)
43end
44