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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_decl_27.f90] - Blame information for rev 708

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


! { dg-do compile }
!
! PR 50659: [4.5/4.6/4.7 Regression] [F03] ICE on invalid with procedure interface
!
! Contributed by Andrew Benson 
 
module m1
  integer :: arrSize
end module
 
module m2
contains
  function Proc (arg)
    use m1
    double precision, dimension(arrSize) :: proc
    double precision :: arg
  end function
end
 
  use m2
  implicit none
  procedure(Proc) :: Proc_Get
end
 
! { dg-final { cleanup-modules "m1 m2" } }

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 50659: [4.5/4.6/4.7 Regression] [F03] ICE on invalid with procedure interface`
4			`!`
5			`! Contributed by Andrew Benson`
6
7			`module m1`
8			`integer :: arrSize`
9			`end module`
10
11			`module m2`
12			`contains`
13			`function Proc (arg)`
14			`use m1`
15			`double precision, dimension(arrSize) :: proc`
16			`double precision :: arg`
17			`end function`
18			`end`
19
20			`use m2`
21			`implicit none`
22			`procedure(Proc) :: Proc_Get`
23			`end`
24
25			`! { dg-final { cleanup-modules "m1 m2" } }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [proc_decl_27.f90] - Blame information for rev 708