Subversion Repositories openrisc_me

! { dg-do compile }

! PR fortran/31472

! Access specifications: Valid Fortran 2003 code

module mod

  implicit none

  private

  integer, public :: i

  integer, private :: z

  integer :: j, x

  private :: j

  public  :: x

  type, public :: bar

    PRIVATE

    integer, public :: y  ! Fortran 2003

    integer, private :: z  ! Fortran 2003

  end type

end module

! { dg-final { cleanup-modules "mod" } }