2 ! { dg-options "-fbackslash" }
9 character(len
=10)::s1
,s2
11 open(11,file
="testcase.txt",form
='unformatted',access
='stream',status
='new')
12 write(11) 'line1,1,\r\nline2'
15 open(11,file
="testcase.txt",form
='formatted')
16 s1
= repeat('x', len(s1
))
19 if (s1
/= "line1" .or
. a
/= 1) STOP 1
21 s1
= repeat('x', len(s1
))
23 close(11,status
="delete")
24 if (s1
/= "line2") STOP 2
27 open(11,file
="testcase.txt",form
='unformatted',access
='stream',status
='new')
28 write(11) 'word1\rword2,\n'
31 open(11,file
="testcase.txt",form
='formatted')
32 s1
= repeat('x', len(s1
))
33 s2
= repeat('x', len(s1
))
35 close(11,status
="delete")
36 if (s1
/= "word1") STOP 3
37 if (s2
/= "word2") STOP 4