OSDN Git Service

2007-01-26 Steven Bosscher <stevenb.gcc@gmail.com>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / backslash_3.f
1 C { dg-do run }
2 C PR fortran/30278
3       program a
4       character(len=1), parameter  :: c1 = char(8), c2 = char(92)
5       character(len=35) str1, str2
6       character(len=37) :: str4, str3
7
8       open(10, status='scratch')
9       write(10, 100)
10       rewind(10)
11       read(10,'(A34)') str1
12       str2 = 'Does ' // c1 // 'ackslash result in ' // c1 // 'ackslash'
13       if (str1 .ne. str2) call abort
14
15       rewind(10)
16       write (10, 200)
17       rewind(10)
18       read(10,'(A37)') str3
19       str4 = 'Does ' //c2// 'backslash result in ' //c2// 'backslash'
20       if (str3 .ne. str4) call abort
21
22       stop
23  100  format ('Does \backslash result in \backslash')
24  200  format ('Does \\backslash result in \\backslash')
25       end