summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/import4.f90
blob: 761c9846b35d913c4df8239230761f6827b11b1e (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
! { dg-do run }
! Test for import in modules
! PR fortran/29601

subroutine bar(r)
  implicit none
  integer(8) :: r
  if(r /= 42) call abort()
  r = 13
end subroutine bar

subroutine foo(a)
  implicit none
  type myT
     sequence
     character(len=3) :: c
  end type myT
  type(myT) :: a
  if(a%c /= "xyz") call abort()
  a%c = "abc"
end subroutine

subroutine new(a,b)
  implicit none
  type gType
     sequence
     integer(8) :: c
  end type gType
  real(8) :: a
  type(gType) :: b
  if(a /= 99.0 .or. b%c /= 11) call abort()
  a = -123.0
  b%c = -44
end subroutine new

module general
  implicit none
  integer,parameter :: ikind = 8
  type gType
     sequence
     integer(ikind) :: c
  end type gType
end module general

module modtest
  use general
  implicit none
  type myT
     sequence
     character(len=3) :: c
  end type myT
  integer, parameter :: dp = 8
  interface
     subroutine bar(x)
       import :: dp
       integer(dp) :: x
     end subroutine bar
     subroutine foo(c)
      import :: myT
       type(myT) :: c
     end subroutine foo
     subroutine new(x,y)
      import :: ikind,gType
      real(ikind) :: x
      type(gType) :: y
     end subroutine new
  end interface
  contains
  subroutine test
    integer(dp) :: y
    y = 42
    call bar(y)
    if(y /= 13) call abort()
  end subroutine test
  subroutine test2()
    type(myT) :: z
    z%c = "xyz"
    call foo(z)
    if(z%c /= "abc") call abort()
  end subroutine test2
end module modtest

program all
  use modtest
  implicit none
  call test()
  call test2()
  call test3()
contains
  subroutine test3()
    real(ikind) :: r
    type(gType) :: t
    r   = 99.0
    t%c = 11
    call new(r,t)
    if(r /= -123.0 .or. t%c /= -44) call abort()
  end subroutine test3
end program all
! { dg-final { cleanup-modules "modtest general" } }