You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
26 lines
406 B
26 lines
406 B
4 months ago
|
! RUN: %S/test_modfile.sh %s %t %f18
|
||
|
|
! Check modfile generation for private type in public API.
|
||
|
|
|
||
|
|
module m
|
||
|
|
type, private :: t1
|
||
|
|
integer :: i
|
||
|
|
end type
|
||
|
|
type, private :: t2
|
||
|
|
integer :: i
|
||
|
|
end type
|
||
|
|
type(t1) :: x1
|
||
|
|
type(t2), private :: x2
|
||
|
|
end
|
||
|
|
|
||
|
|
!Expect: m.mod
|
||
|
|
!module m
|
||
|
|
!type,private::t1
|
||
|
|
!integer(4)::i
|
||
|
|
!end type
|
||
|
|
!type,private::t2
|
||
|
|
!integer(4)::i
|
||
|
|
!end type
|
||
|
|
!type(t1)::x1
|
||
|
|
!type(t2),private::x2
|
||
|
|
!end
|