proc_ptr_comp_18.f90: Removed.
* gfortran.dg/proc_ptr_comp_18.f90: Removed. * gfortran.dg/proc_ptr_comp_19.f90: Removed. From-SVN: r151370
This commit is contained in:
parent
7307864690
commit
79a08cf40f
|
@ -1,3 +1,8 @@
|
|||
2009-09-03 Jakub Jelinek <jakub@redhat.com>
|
||||
|
||||
* gfortran.dg/proc_ptr_comp_18.f90: Removed.
|
||||
* gfortran.dg/proc_ptr_comp_19.f90: Removed.
|
||||
|
||||
2009-09-02 Ian Lance Taylor <iant@google.com>
|
||||
|
||||
* gcc.dg/20090902-1.c: New test.
|
||||
|
|
|
@ -1,33 +0,0 @@
|
|||
! { dg-do run }
|
||||
!
|
||||
! PR 41139: [4.5 Regression] a procedure pointer call as actual argument
|
||||
!
|
||||
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
||||
|
||||
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
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
! { dg-do run }
|
||||
!
|
||||
! PR 41139: [4.5 Regression] a procedure pointer call as actual argument
|
||||
!
|
||||
! Contributed by Janus Weil <janus@gcc.gnu.org>
|
||||
|
||||
PROGRAM test
|
||||
|
||||
type :: t
|
||||
PROCEDURE(three), POINTER, nopass :: f
|
||||
end type
|
||||
type(t) :: o
|
||||
logical :: g
|
||||
|
||||
o%f => three
|
||||
g=greater(4.,o%f())
|
||||
if (.not. g) call abort()
|
||||
|
||||
CONTAINS
|
||||
|
||||
REAL FUNCTION three()
|
||||
three = 3.
|
||||
END FUNCTION
|
||||
|
||||
LOGICAL FUNCTION greater(x,y)
|
||||
REAL, INTENT(in) :: x, y
|
||||
print *,"greater:",x,y
|
||||
greater = (x > y)
|
||||
END FUNCTION greater
|
||||
|
||||
END PROGRAM test
|
||||
|
Loading…
Reference in New Issue