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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! PR fortran/21177
3
module mymod
4
  interface tt
5
    module procedure tt_i, tt_r, tt_l, tt_c4, tt_c8
6
  end interface tt
7
contains
8
  function tt_l(x) result(y)
9
    integer :: y
10
    logical, pointer :: x
11
    y = 0
12
  end function
13
  function tt_i(x) result(y)
14
    integer :: y
15
    integer, pointer :: x
16
    y = 1
17
  end function
18
  function tt_r(x) result(y)
19
    integer :: y
20
    real, pointer :: x
21
    y = 2
22
  end function
23
  function tt_c4(x) result(y)
24
    integer :: y
25
    complex(4), pointer :: x
26
    y = 3
27
  end function
28
  function tt_c8(x) result(y)
29
    integer :: y
30
    complex(8), pointer :: x
31
    y = 4
32
  end function
33
end module mymod
34
 
35
program test
36
  use mymod
37
  logical, pointer :: l
38
  integer, pointer :: i
39
  real, pointer :: r
40
  complex(4), pointer :: c4
41
  complex(8), pointer :: c8
42
 
43
  if (tt(l) /= 0) call abort()
44
  if (tt(i) /= 1) call abort()
45
  if (tt(r) /= 2) call abort()
46
  if (tt(c4) /= 3) call abort()
47
  if (tt(c8) /= 4) call abort()
48
  if (tt(null(l)) /= 0) call abort()
49
  if (tt(null(i)) /= 1) call abort()
50
  if (tt(null(r)) /= 2) call abort()
51
  if (tt(null(c4)) /= 3) call abort()
52
  if (tt(null(c8)) /= 4) call abort()
53
end program test
54
 
55
! { dg-final { cleanup-modules "mymod" } }

powered by: WebSVN 2.1.0

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