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
|
! { dg-do run }
program namelist_delim_none
implicit none
character(512) :: internal_unit
character(5), dimension(5) :: mystring
real, dimension(4) :: somenum
integer :: i
namelist /mylist/ mystring, somenum
mystring(1)='mon'
mystring(2)='tue'
mystring(3)='wed'
mystring(4)='thu'
mystring(5)='fri'
somenum = reshape(source = (/ 2, 3, 5, 7 /), shape=shape(somenum))
open(unit=10,status='scratch',delim='none')
write(10, mylist)
rewind(10)
mystring = "xxxxx"
rewind(10)
do i=1,5
read(10,'(a)') internal_unit
if (i.eq.2 .and. internal_unit .ne. " MYSTRING=mon tue wed thu fri ,") STOP 1
if (scan(internal_unit,"""'").ne.0) print *, internal_unit
end do
close(10)
end program
|
