1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
! { 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
|
