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

Rev 302	Rev 384
`! { dg-do compile }`	`! { dg-do compile }`
`! PR fortran/31472`	`! PR fortran/31472`
`! Access specifications: Valid Fortran 2003 code`	`! Access specifications: Valid Fortran 2003 code`
`module mod`	`module mod`
`implicit none`	`implicit none`
`private`	`private`
`integer, public :: i`	`integer, public :: i`
`integer, private :: z`	`integer, private :: z`
`integer :: j, x`	`integer :: j, x`
`private :: j`	`private :: j`
`public :: x`	`public :: x`
`type, public :: bar`	`type, public :: bar`
`PRIVATE`	`PRIVATE`
`integer, public :: y ! Fortran 2003`	`integer, public :: y ! Fortran 2003`
`integer, private :: z ! Fortran 2003`	`integer, private :: z ! Fortran 2003`
`end type`	`end type`
`end module`	`end module`
`! { dg-final { cleanup-modules "mod" } }`	`! { dg-final { cleanup-modules "mod" } }`