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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
!
3
! PR 36704: Procedure pointer as function result
4
!
5
! Contributed by Janus Weil 
6
 
7
module proc_ptr_15
8
 
9
  interface
10
    function e(x)
11
      real :: x
12
      procedure(), pointer :: e
13
    end function e
14
  end interface
15
 
16
  interface
17
    function f(x)
18
      real :: x
19
      external :: f
20
      pointer :: f
21
    end function
22
  end interface
23
 
24
  interface
25
    function g(x)
26
      real :: x
27
      pointer :: g
28
      external :: g
29
    end function
30
  end interface
31
 
32
contains
33
 
34
  subroutine point_fun()
35
    call set_fun(aux)
36
  end subroutine
37
 
38
  subroutine set_fun(y)
39
    external :: y
40
  end subroutine
41
 
42
  function aux()
43
    external aux
44
    pointer aux
45
    intrinsic sin
46
    aux => sin
47
  end function
48
 
49
  function foo(x)
50
    real :: x
51
    interface
52
      subroutine foo(i)  ! { dg-error "attribute conflicts with" }
53
        integer :: i
54
      end subroutine
55
    end interface
56
    !pointer :: foo
57
  end function
58
 
59
end
60
 
61
! { dg-final { cleanup-modules "proc_ptr_15" } }
62
 

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.