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

Subversion Repositories openrisc

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

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR34782 tab format failure to display properly (regression vs. g77)`
3			`character a(6)`
4			`character(22) :: output`
5			`data a / 'a', 'b', 'c', 'd', 'e', 'f' /`
6			`!write(*,'(a)') "123456789012345678901234567890"`
7			`write(output,'(T20,A3, T1,A4, T5,A2, T7,A2, T9,A4, T17,A2)')`
8			`1 'a', 'b', 'c', 'd', 'e', 'f'`
9			`if (output .ne. " b c d e f a") call abort`
10			`end`