URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc3/] [gcc/] [testsuite/] [gfortran.dg/] [x_slash_2.f] - Rev 302
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run } ! PR 34887 - reverse tabs followed by a slash used to confuse I/O. program main character(len=2) :: b, a open(10,form="formatted") write (10,'(3X, A, T1, A,/)') 'aa', 'bb' rewind(10) read (10,'(A2,1X,A2)') b,a if (a /= 'aa' .or. b /= 'bb') call abort close(10,status="delete") end
Go to most recent revision | Compare with Previous | Blame | View Log