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

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [stfunc_3.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! { dg-options "-std=legacy" }`	`! { dg-options "-std=legacy" }`
`!`	`!`
`! Tests the fix for PR20867 in which implicit typing was not done within`	`! Tests the fix for PR20867 in which implicit typing was not done within`
`! statement functions and so was not confirmed or not by subsequent`	`! statement functions and so was not confirmed or not by subsequent`
`! type delarations.`	`! type delarations.`
`!`	`!`
`! Contributed by Joost VandeVondele`	`! Contributed by Joost VandeVondele`
`!`	`!`
`REAL :: st1`	`REAL :: st1`
`st1(I)=I**2`	`st1(I)=I**2`
`REAL :: I ! { dg-error " already has basic type of INTEGER" }`	`REAL :: I ! { dg-error " already has basic type of INTEGER" }`
`END`	`END`