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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
module a
3
 implicit none
4
interface operator(.op.)
5
  module procedure sub
6
end interface
7
interface operator(.ops.)
8
  module procedure sub2
9
end interface
10
 
11
contains
12
  function sub(i)
13
    integer :: sub
14
    integer,intent(in) :: i
15
    sub = -i
16
  end function sub
17
  function sub2(i)
18
    integer :: sub2
19
    integer,intent(in) :: i
20
    sub2 = i
21
  end function sub2
22
end module a
23
 
24
program test
25
use a, only: operator(.op.), operator(.op.), &
26
operator(.my.)=>operator(.op.),operator(.ops.)=>operator(.op.)
27
implicit none
28
if (.my.2 /= -2 .or. .op.3 /= -3 .or. .ops.7 /= -7) call abort()
29
end
30
 
31
! { dg-final { cleanup-modules "a" } }

powered by: WebSVN 2.1.0

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