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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do compile }
2
! This checks the fix for PR 26041.
3
!
4
! Contributed by H.J. Lu  
5
module foo
6
   public    bar_
7
   interface bar_
8
      module procedure bar
9
   end interface
10
   public    xxx_
11
   interface xxx_
12
      module procedure xxx
13
   end interface
14
contains
15
   subroutine bar(self, z)
16
      interface
17
         function self(z) result(res)
18
        real z
19
            real(kind=kind(1.0d0)) :: res
20
         end function
21
      end interface
22
   end subroutine
23
   subroutine xxx(self,z)
24
      interface
25
         function self(z) result(res)
26
        real z
27
            real(kind=kind(1.0d0)) :: res
28
         end function
29
      end interface
30
      call bar(self, z)
31
   end subroutine
32
end
33
 
34
! { dg-final { cleanup-modules "foo" } }

powered by: WebSVN 2.1.0

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