URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_iolength.f90] - Blame information for rev 437

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


! { dg-do compile }
! { dg-options "-std=f95" }
! PR30014 IOLENGTH does not handle KIND=8.  This patch checks the constraints.
! Submitted by Jerry DeLisle  
! F95 Standard 9.6, R923
integer (kind=4) small, x
integer (kind=8) large
inquire (iolength=small) x
inquire (iolength=large) x ! { dg-error "requires default INTEGER" }
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-std=f95" }`
3			`! PR30014 IOLENGTH does not handle KIND=8. This patch checks the constraints.`
4			`! Submitted by Jerry DeLisle`
5			`! F95 Standard 9.6, R923`
6			`integer (kind=4) small, x`
7			`integer (kind=8) large`
8			`inquire (iolength=small) x`
9			`inquire (iolength=large) x ! { dg-error "requires default INTEGER" }`
10			`end`

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_iolength.f90] - Blame information for rev 437