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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [proc_ptr_4.f90] - Blame information for rev 307

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

Line No. Rev Author Line
1 302 jeremybenn 
! { dg-do compile }
2 
!
3 
! PROCEDURE POINTERS & pointer-valued functions
4 
!
5 
! Contributed by Janus Weil
6 
 
7 
interface
8 
  integer function f1()
9 
  end function
10 
end interface
11 
 
12 
interface
13 
 function f2()
14 
   integer, pointer :: f2
15 
 end function
16 
end interface
17 
 
18 
interface
19 
 function pp1()
20 
   integer :: pp1
21 
 end function
22 
end interface
23 
pointer :: pp1
24 
 
25 
pointer :: pp2
26 
interface
27 
  function pp2()
28 
    integer :: pp2
29 
  end function
30 
end interface
31 
 
32 
pointer :: pp3
33 
interface
34 
  function pp3()
35 
    integer, pointer :: pp3
36 
  end function
37 
end interface
38 
 
39 
interface
40 
  function pp4()
41 
    integer, pointer :: pp4
42 
  end function
43 
end interface
44 
pointer :: pp4
45 
 
46 
 
47 
pp1 => f1
48 
 
49 
pp2 => pp1
50 
 
51 
f2 => f1        ! { dg-error "is not a variable" }
52 
 
53 
pp3 => f2
54 
 
55 
pp4 => pp3
56 
 
57 
end

powered by: WebSVN 2.1.0

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