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

Subversion Repositories openrisc

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

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


! { dg-do run }
!
! PR 41139: [4.5 Regression] a procedure pointer call as actual argument
!
! Contributed by Janus Weil 
 
PROGRAM test
 
 type :: t
   PROCEDURE(add), POINTER, nopass :: f
 end type
 type(t) :: o
 logical :: g
 
 o%f => add
 g=greater(4.,o%f(1.,2.))
 if (.not. g) call abort()
 
CONTAINS
 
 REAL FUNCTION add(x,y)
   REAL, INTENT(in) :: x,y
   add = x+y
 END FUNCTION add
 
 LOGICAL FUNCTION greater(x,y)
   REAL, INTENT(in) :: x, y
   print *,"greater:",x,y
   greater = (x > y)
 END FUNCTION greater
 
END PROGRAM test
 

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`!`
3			`! PR 41139: [4.5 Regression] a procedure pointer call as actual argument`
4			`!`
5			`! Contributed by Janus Weil`
6
7			`PROGRAM test`
8
9			`type :: t`
10			`PROCEDURE(add), POINTER, nopass :: f`
11			`end type`
12			`type(t) :: o`
13			`logical :: g`
14
15			`o%f => add`
16			`g=greater(4.,o%f(1.,2.))`
17			`if (.not. g) call abort()`
18
19			`CONTAINS`
20
21			`REAL FUNCTION add(x,y)`
22			`REAL, INTENT(in) :: x,y`
23			`add = x+y`
24			`END FUNCTION add`
25
26			`LOGICAL FUNCTION greater(x,y)`
27			`REAL, INTENT(in) :: x, y`
28			`print *,"greater:",x,y`
29			`greater = (x > y)`
30			`END FUNCTION greater`
31
32			`END PROGRAM test`
33

Browse

Tools

Subversion Repositories openrisc

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