URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [f77-edit-i-in.f] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
C Test Fortran 77 I edit descriptor for input C (ANSI X3.9-1978 Section 13.5.9.1) C C Origin: David Billinghurst <David.Billinghurst@riotinto.com> C C { dg-do run } integer i,j character*10 buf write(buf,'(A)') '1 -1' read(buf,'(I1)') i if ( i.ne.1 ) call abort() read(buf,'(1X,I1)') i if ( i.ne.0 ) call abort() read(buf,'(1X,I1,1X,I2)') i,j if ( i.ne.0 .and. j.ne.-1 ) call abort() end
Go to most recent revision | Compare with Previous | Blame | View Log