| ! { dg-do run } |
| ! |
| ! PR fortran/49791 |
| ! |
| ! Contributed by Elliott Sales de Andrade |
| ! |
| program namelist_test |
| |
| dimension xpos(5000), ypos(5000) |
| namelist /geometry/ xpos, ypos |
| |
| xpos = -huge(xpos) |
| ypos = -huge(ypos) |
| |
| open(unit=4,file='geometry.in') |
| write(4,'(a)') '$geometry' |
| write(4,'(a)') ' xpos(1)= 0.00, 0.10, 0.20, 0.30, 0.40,' |
| write(4,'(a)') ' ypos(1)= 0.50, 0.60, 0.70, 0.80, 0.90,' |
| write(4,'(a)') '$end' |
| |
| close(4) |
| |
| open (unit=4,file='geometry.in',status='old',form='formatted') |
| read (4,geometry) |
| close(4, status='delete') |
| |
| !print *, 'xpos', xpos(1:10), 'ypos', ypos(1:10) |
| |
| if (any (xpos(1:5) /= [0.00, 0.10, 0.20, 0.30, 0.40]))call abort() |
| if (any (ypos(1:5) /= [0.50, 0.60, 0.70, 0.80, 0.90]))call abort() |
| if (any (xpos(6:) /= -huge(xpos))) call abort () |
| if (any (ypos(6:) /= -huge(ypos))) call abort () |
| end |
