URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Subversion Repositories openrisc
[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [read_x_past.f] - Rev 841
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run } ! { dg-options -w } ! PR 26661 : Test reading X's past file end with no LF or CR. ! PR 26880 : Tests that rewind clears the gfc_unit read_bad flag. ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>. implicit none character(3) a(4) integer i open (10) 10 format(A,$) ! This is not pedantic write(10,10)' abc def ghi jkl' rewind(10) read(10,20)(a(i),i=1,4) if (a(4).ne."jkl") call abort() 20 format(1x,a3,1x,a3,1x,a3,1x,a3,10x) close(10, status="delete") end
Go to most recent revision | Compare with Previous | Blame | View Log