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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [named_interface.f90] - Blame information for rev 302

Details | Compare with Previous | View Log


! { dg-do compile }
! PR 20363
module snafu
  interface foo
    subroutine really_snafu (foo)
      integer, intent (inout)  :: foo
    end subroutine really_snafu
  end interface foo
end module snafu
 
! { dg-final { cleanup-modules "snafu" } }

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR 20363`
3			`module snafu`
4			`interface foo`
5			`subroutine really_snafu (foo)`
6			`integer, intent (inout) :: foo`
7			`end subroutine really_snafu`
8			`end interface foo`
9			`end module snafu`
10
11			`! { dg-final { cleanup-modules "snafu" } }`

Browse

Tools

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [named_interface.f90] - Blame information for rev 302