URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_iolength.f90] - Blame information for rev 708

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	694	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

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [inquire_iolength.f90] - Blame information for rev 708