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_2.f90] - Blame information for rev 307

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do run }
!
! PR fortran/34404
!
! Contributed by Joost VandeVondele.
!
implicit none
complex :: x
character(len=80) :: t="(1.0E-7,4.0E-3)"
read(t,*) x
if (real(x) /= 1.0e-7 .or. aimag(x)/=4.0e-3) call abort()
END

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR fortran/34404`
4			`!`
5			`! Contributed by Joost VandeVondele.`
6			`!`
7			`implicit none`
8			`complex :: x`
9			`character(len=80) :: t="(1.0E-7,4.0E-3)"`
10			`read(t,*) x`
11			`if (real(x) /= 1.0e-7 .or. aimag(x)/=4.0e-3) call abort()`
12			`END`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [read_2.f90] - Blame information for rev 307