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
|
program write_22
implicit none
call test_implied_do_allocatable_string()
call test_implied_do_allocatable_char1_stdout()
contains
subroutine test_implied_do_allocatable_string
character(len=200) :: buf
character(10), allocatable :: tmp_line
integer :: i
allocate(tmp_line)
tmp_line = "Hello"
write(buf, *) (tmp_line, i=1, 3)
if (index(buf, "Hello") == 0) error stop
if (index(buf, "HelloHello") == 0) then
if (index(buf(11:), "Hello") == 0) error stop
end if
end subroutine
subroutine test_implied_do_allocatable_char1_stdout
character(1), allocatable :: tmp_line
integer :: i
tmp_line = "H"
write(*, *) (tmp_line, i=1, 3)
end subroutine
end program write_22
|
