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/] [read_comma.f] - Rev 307
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run { target fd_truncate } } ! PR25039 This test checks that commas in input fields for formatted sequential ! reads are interpreted as the read completion. If no comma is encountered the ! normal field width determines the end of the read. The test case also checks ! that default blanks are interpreted as NULL in numerics. ! Test case derived from sample provided in PR by Iwan Kawrakow. ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> ! program pr25039 implicit none integer :: i1, i2, i3 character(10) :: a1 open(10, status="scratch") write(10,'(a)') "1, 235" rewind(10) read(10,'(3i2)') i1,i2,i3 if(i1.ne.1) call abort() if(i2.ne.2) call abort() if(i3.ne.35) call abort() rewind(10) ! Make sure commas are read in character strings. write(10,'(a)') "1234,6789," rewind(10) read(10,'(a10)') a1 if(a1.ne."1234,6789,") call abort() end
Go to most recent revision | Compare with Previous | Blame | View Log