blob: 99ffd8ad5a258331dc999d4a0a11a89c12e23c5c (
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
|
! { 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
|
