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

Subversion Repositories openrisc

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

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


! { dg-do compile }
!
! PR 46060: [F03] procedure pointer component referenced without argument list
!
! Contributed by Stephen J. Bespalko 
 
implicit none
 
abstract interface
  function name_func (ivar) result (res)
    integer, intent(in) :: ivar
    character(len=8) :: res
  end function name_func
end interface
 
type var_type
  procedure(name_func), nopass, pointer :: name
end type var_type
 
type(var_type) :: vars
character(len=8) name
 
name = vars%name   ! { dg-error "requires an argument list" }
 
end

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`!`
3			`! PR 46060: [F03] procedure pointer component referenced without argument list`
4			`!`
5			`! Contributed by Stephen J. Bespalko`
6
7			`implicit none`
8
9			`abstract interface`
10			`function name_func (ivar) result (res)`
11			`integer, intent(in) :: ivar`
12			`character(len=8) :: res`
13			`end function name_func`
14			`end interface`
15
16			`type var_type`
17			`procedure(name_func), nopass, pointer :: name`
18			`end type var_type`
19
20			`type(var_type) :: vars`
21			`character(len=8) name`
22
23			`name = vars%name ! { dg-error "requires an argument list" }`
24
25			`end`

Browse

Tools

Subversion Repositories openrisc

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