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

Details | Compare with Previous | View Log


! { dg-do compile }
! test for C1204 of Fortran 2003 standard:
! module procedure not allowed in abstract interface
module m
  abstract interface
     module procedure p ! { dg-error "must be in a generic module interface" }
  end interface
contains
  subroutine p()
  end subroutine
end module m

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! test for C1204 of Fortran 2003 standard:`
3			`! module procedure not allowed in abstract interface`
4			`module m`
5			`abstract interface`
6			`module procedure p ! { dg-error "must be in a generic module interface" }`
7			`end interface`
8			`contains`
9			`subroutine p()`
10			`end subroutine`
11			`end module m`

Browse

Tools

Subversion Repositories openrisc_me

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