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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! Some tests for PROCEDURE declarations inside of interfaces.
3
! Contributed by Janus Weil 
4
 
5
module m
6
 
7
  interface
8
    subroutine a()
9
    end subroutine a
10
  end interface
11
 
12
  procedure(c) :: f
13
 
14
  interface bar
15
    procedure a,d
16
  end interface bar
17
 
18
  interface foo
19
    procedure c
20
  end interface foo
21
 
22
  abstract interface
23
    procedure f  ! { dg-error "must be in a generic interface" }
24
  end interface
25
 
26
  interface
27
    function opfoo(a)
28
      integer,intent(in) :: a
29
      integer :: opfoo
30
    end function opfoo
31
  end interface
32
 
33
  interface operator(.op.)
34
    procedure opfoo
35
  end interface
36
 
37
  external ex  ! { dg-error "has no explicit interface" }
38
  procedure():: ip  ! { dg-error "has no explicit interface" }
39
  procedure(real):: pip  ! { dg-error "has no explicit interface" }
40
 
41
  interface nn1
42
    procedure ex
43
    procedure a, a  ! { dg-error "already present in the interface" }
44
  end interface
45
 
46
  interface nn2
47
    procedure ip
48
  end interface
49
 
50
  interface nn3
51
    procedure pip
52
  end interface
53
 
54
contains
55
 
56
 subroutine d(x)
57
 
58
   interface
59
     subroutine x()
60
     end subroutine x
61
   end interface
62
 
63
   interface gen
64
     procedure x
65
   end interface
66
 
67
 end subroutine d
68
 
69
 function c(x)
70
   integer :: x
71
   real :: c
72
   c = 3.4*x
73
 end function c
74
 
75
end module m

powered by: WebSVN 2.1.0

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