URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [f77-edit-i-in.f] - Rev 414
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 } C { dg-options "-std=legacy" } C 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