mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:46:46 +00:00
dc453dcf76
To enable Flang testing on Windows, shell scripts have to be ported to Python. The following changes have been made: "test_modfile.sh" has been ported to Python, and the relevant tests relying on it. Reviewed By: Meinersbur Differential Revision: https://reviews.llvm.org/D107956
26 lines
417 B
Fortran
26 lines
417 B
Fortran
! RUN: %python %S/test_modfile.py %s %flang_fc1
|
|
! 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
|