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
|
! RUN: %S/test_modfile.sh %s %t %f18
module m
type t1
contains
procedure, nopass :: s2
procedure, nopass :: s3
procedure :: r
generic :: foo => s2
generic :: read(formatted)=> r
end type
type, extends(t1) :: t2
contains
procedure, nopass :: s4
generic :: foo => s3
generic :: foo => s4
end type
contains
subroutine s2(i)
end
subroutine s3(r)
end
subroutine s4(z)
complex :: z
end
subroutine r(dtv, unit, iotype, v_list, iostat, iomsg)
class(t1), intent(inout) :: dtv
integer, intent(in) :: unit
character (len=*), intent(in) :: iotype
integer, intent(in) :: v_list(:)
integer, intent(out) :: iostat
character (len=*), intent(inout) :: iomsg
end
end
!Expect: m.mod
!module m
! type::t1
! contains
! procedure,nopass::s2
! procedure,nopass::s3
! procedure::r
! generic::foo=>s2
! generic::read(formatted)=>r
! end type
! type,extends(t1)::t2
! contains
! procedure,nopass::s4
! generic::foo=>s3
! generic::foo=>s4
! end type
!contains
! subroutine s2(i)
! integer(4)::i
! end
! subroutine s3(r)
! real(4)::r
! end
! subroutine s4(z)
! complex(4)::z
! end
! subroutine r(dtv,unit,iotype,v_list,iostat,iomsg)
! class(t1),intent(inout)::dtv
! integer(4),intent(in)::unit
! character(*,1),intent(in)::iotype
! integer(4),intent(in)::v_list(:)
! integer(4),intent(out)::iostat
! character(*,1),intent(inout)::iomsg
! end
!end
|
GitWeb
