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. The problem was mishandling '!'
5 ! See also test case read_bang4.f90.
11 character(20) :: str1
, str2
21 open(15, status
='scratch')
23 write(15,*) " 23.5! 34.5"
24 write(15,*) " (67.50,69.25) (51.25,87.75)!"
25 write(15,*) " 'abcdefgh!' ' !klmnopq!'"
27 read(15,*,iostat
=ios
) i
, j
28 if (ios
.ne
.5010) STOP 1
29 read(15,*,iostat
=ios
) r
, s
30 if (ios
.ne
.5010) STOP 2
31 read(15,*,iostat
=ios
) c
, d
32 if (ios
.ne
.5010) STOP 3
33 read(15,*,iostat
=ios
) str1
, str2
35 if (str1
.ne
."abcdefgh!") print *, str1
36 if (str2
.ne
." !klmnopq!") print *, str2