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/] [access_spec_1.f90] - Blame information for rev 551

Go to most recent revision | Details | Compare with Previous | View Log


! { 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" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/31472`
3			`! Access specifications: Valid Fortran 2003 code`
4			`module mod`
5			`implicit none`
6			`private`
7			`integer, public :: i`
8			`integer, private :: z`
9			`integer :: j, x`
10			`private :: j`
11			`public :: x`
12			`type, public :: bar`
13			`PRIVATE`
14			`integer, public :: y ! Fortran 2003`
15			`integer, private :: z ! Fortran 2003`
16			`end type`
17			`end module`
18			`! { dg-final { cleanup-modules "mod" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [access_spec_1.f90] - Blame information for rev 551