1! { dg-do run }
2!
3! PR fortran/49791
4!
5! Contributed by Elliott Sales de Andrade
6!
7      program namelist_test
8
9      dimension xpos(5000), ypos(5000)
10      namelist /geometry/ xpos, ypos
11
12      xpos = -huge(xpos)
13      ypos = -huge(ypos)
14
15      open(unit=4,file='geometry.in')
16      write(4,'(a)') '$geometry'
17      write(4,'(a)') ' xpos(1)= 0.00, 0.10, 0.20, 0.30, 0.40,'
18      write(4,'(a)') ' ypos(1)= 0.50, 0.60, 0.70, 0.80, 0.90,'
19      write(4,'(a)') '$end'
20
21      close(4)
22
23      open (unit=4,file='geometry.in',status='old',form='formatted')
24      read (4,geometry)
25      close(4, status='delete')
26
27      !print *, 'xpos', xpos(1:10), 'ypos', ypos(1:10)
28
29      if (any (xpos(1:5) /= [0.00, 0.10, 0.20, 0.30, 0.40]))STOP 1
30      if (any (ypos(1:5) /= [0.50, 0.60, 0.70, 0.80, 0.90]))STOP 2
31      if (any (xpos(6:) /= -huge(xpos))) STOP 3
32      if (any (ypos(6:) /= -huge(ypos))) STOP 4
33      end
34