1! { dg-do run }
2! PR69651 Usage of unitialized pointer io/list_read.c
3! Note: The uninitialized pointer was not the cause of the problem
4!       observed with this test case. This tests the case with UTF-8
5!       files. The large string test the realloc use in push_char4 of
6!       list_read.c
7program test
8  implicit none
9  integer :: i, j, k, ios
10  integer, parameter :: big = 600
11  real ::  r, s
12  complex :: c, d
13  character(kind=4,len=big) :: str1, str2, str3
14
15  do i=1,big, 10
16    do j = 0, 9
17      k = i + j
18      str2(k:k) = char(65+j)
19    end do
20  end do
21  i = -5
22  j = -6
23  r = -3.14
24  s = -2.71
25  c = (-1.1,-2.2)
26  d = (-3.3,-4.4)
27  str3 = str2
28  open(15, status='scratch', encoding="utf-8")
29  write(15,*) "10  1!2"
30  write(15,*) "  23.5! 34.5"
31  write(15,*) "  (67.50,69.25)  (51.25,87.75)!"
32  write(15,*) "  'abcdefgh!'", " ", str2
33  rewind(15)
34  str1 = 4_"candy"
35  str2 = 4_"peppermint"
36  read(15,*,iostat=ios) i, j
37  if (ios.ne.5010) STOP 1
38  read(15,*,iostat=ios) r, s
39  if (ios.ne.5010) STOP 2
40  read(15,*,iostat=ios) c, d
41  if (ios.ne.5010) STOP 3
42  read(15,*,iostat=ios) str1, str2
43  if (ios.ne.0) STOP 4
44  if (str1.ne.4_"abcdefgh!") STOP 5
45  if (str2.ne.str3) STOP 6
46  close(15)
47end program
48