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

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


! { dg-do compile }
!
! PR 41242: [4.5 Regression] PPC call rejected (related to user-defined assignment?)
!
! Original test case by Juergen Reuter 
! Modified by Janus Weil 
 
  type :: nf_t
     procedure(integer), nopass, pointer :: get_n_in
  end type
 
  interface assignment(=)
     procedure op_assign
  end interface
 
  type(nf_t) :: prc_lib
  prc_lib = "foobar"
  print *, prc_lib%get_n_in()
 
contains
 
  elemental subroutine op_assign (str, ch)
    type(nf_t), intent(out) :: str
    character(len=*), intent(in) :: ch
  end subroutine
 
end
 

Line No.	Rev	Author	Line
1	302	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 41242: [4.5 Regression] PPC call rejected (related to user-defined assignment?)`
4			`!`
5			`! Original test case by Juergen Reuter`
6			`! Modified by Janus Weil`
7
8			`type :: nf_t`
9			`procedure(integer), nopass, pointer :: get_n_in`
10			`end type`
11
12			`interface assignment(=)`
13			`procedure op_assign`
14			`end interface`
15
16			`type(nf_t) :: prc_lib`
17			`prc_lib = "foobar"`
18			`print *, prc_lib%get_n_in()`
19
20			`contains`
21
22			`elemental subroutine op_assign (str, ch)`
23			`type(nf_t), intent(out) :: str`
24			`character(len=*), intent(in) :: ch`
25			`end subroutine`
26
27			`end`
28

Browse

Tools

Subversion Repositories openrisc

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