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

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


! { dg-do compile }
! PR fortran/33945
!
! MODULE PROCEDURE in the interface was wrongly accepted
module modproc2
  implicit none
  interface
    subroutine x
    end subroutine x
  end interface
  procedure(x) :: y
  interface bar
    module procedure y ! { dg-error "not a module procedure" }
  end interface bar
end module modproc2
 
end

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`! PR fortran/33945`
3			`!`
4			`! MODULE PROCEDURE in the interface was wrongly accepted`
5			`module modproc2`
6			`implicit none`
7			`interface`
8			`subroutine x`
9			`end subroutine x`
10			`end interface`
11			`procedure(x) :: y`
12			`interface bar`
13			`module procedure y ! { dg-error "not a module procedure" }`
14			`end interface bar`
15			`end module modproc2`
16
17			`end`

Browse

Tools

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