URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [x_slash_2.f] - Blame information for rev 801

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 34887 - reverse tabs followed by a slash used to confuse I/O.`
3			`program main`
4			`character(len=2) :: b, a`
5			`open(10,form="formatted")`
6			`write (10,'(3X, A, T1, A,/)') 'aa', 'bb'`
7			`rewind(10)`
8			`read (10,'(A2,1X,A2)') b,a`
9			`if (a /= 'aa' .or. b /= 'bb') call abort`
10			`close(10,status="delete")`
11			`end`