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