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/] [pure_initializer_3.f90] - Diff between revs 302 and 384

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`!`	`!`
`! PR fortran/42922`	`! PR fortran/42922`
`!`	`!`
`! Contributed by mrestelli@gmail.com`	`! Contributed by mrestelli@gmail.com`
`!`	`!`
`pure subroutine psub()`	`pure subroutine psub()`
`implicit none`	`implicit none`
`type ilist`	`type ilist`
`integer :: i = 0`	`integer :: i = 0`
`end type ilist`	`end type ilist`
`type(ilist) :: x`	`type(ilist) :: x`
`x%i = 1`	`x%i = 1`
`end subroutine psub`	`end subroutine psub`