diff options
| author | Alexandre Oliva <aoliva@redhat.com> | 2009-09-01 21:10:12 +0000 |
|---|---|---|
| committer | Alexandre Oliva <aoliva@redhat.com> | 2009-09-01 21:10:12 +0000 |
| commit | bbd2d1141f4c957d232042c6c757776fc1d0b9f3 (patch) | |
| tree | 457d72335a5b86fced2ea8460ad9303376fcc1d9 /gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90 | |
| parent | 47d1e2fcf09977ed6a87d789f073937942fcab71 (diff) | |
Merged with gcc-4_4-branch@151281.var-tracking-assignments-4_4-branch
git-svn-id: https://gcc.gnu.org/svn/gcc/branches/var-tracking-assignments-4_4-branch@151286 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90 | 33 |
1 files changed, 33 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90 new file mode 100644 index 00000000000..4b849b64e18 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/proc_ptr_comp_18.f90 @@ -0,0 +1,33 @@ +! { 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 + |