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

Subversion Repositories openrisc

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

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { dg-do run }
2
! Test whether import works
3
! PR fortran/29601
4
 
5
subroutine test(x)
6
  type myType3
7
    sequence
8
    integer :: i
9
  end type myType3
10
  type(myType3) :: x
11
  if(x%i /= 7) call abort()
12
  x%i = 1
13
end subroutine test
14
 
15
 
16
subroutine bar(x,y)
17
  type myType
18
    sequence
19
    integer :: i
20
  end type myType
21
  type(myType) :: x
22
  integer(8) :: y
23
  if(y /= 8) call abort()
24
  if(x%i /= 2) call abort()
25
  x%i = 5
26
  y = 42
27
end subroutine bar
28
 
29
module testmod
30
  implicit none
31
  integer, parameter :: kind = 8
32
  type modType
33
    real :: rv
34
  end type modType
35
  interface
36
    subroutine other(x,y)
37
       import
38
       real(kind)    :: x
39
       type(modType) :: y
40
    end subroutine
41
  end interface
42
end module testmod
43
 
44
program foo
45
  integer, parameter :: dp = 8
46
  type myType
47
    sequence
48
    integer :: i
49
  end type myType
50
  type myType3
51
    sequence
52
    integer :: i
53
  end type myType3
54
  interface
55
    subroutine bar(x,y)
56
      import
57
      type(myType) :: x
58
      integer(dp)     :: y
59
    end subroutine bar
60
    subroutine test(x)
61
      import :: myType3
62
      import myType3 ! { dg-warning "already IMPORTed from" }
63
      type(myType3) :: x
64
    end subroutine test
65
  end interface
66
 
67
  type(myType) :: y
68
  type(myType3) :: z
69
  integer(8) :: i8
70
  y%i = 2
71
  i8 = 8
72
  call bar(y,i8)
73
  if(y%i /= 5 .or. i8/= 42) call abort()
74
  z%i = 7
75
  call test(z)
76
  if(z%i /= 1) call abort()
77
end program foo
78
! { dg-final { cleanup-modules "testmod" } }

powered by: WebSVN 2.1.0

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