mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:46:46 +00:00
48b6f5c708
This supports checks in C1801-C1805 for derived type with BIND attribute. The other compilers such as 'gfortran' and 'ifort' do not report error for C1802 and C1805, so emit warnings for them. Reviewed By: klausler Differential Revision: https://reviews.llvm.org/D130438
29 lines
507 B
Fortran
29 lines
507 B
Fortran
! RUN: %python %S/test_modfile.py %s %flang_fc1
|
|
module m
|
|
type t1(a, b, c)
|
|
integer, kind :: a
|
|
integer(8), len :: b, c
|
|
integer :: d
|
|
end type
|
|
type, extends(t1) :: t2(e)
|
|
integer, len :: e
|
|
end type
|
|
type, extends(t2) :: t3
|
|
end type
|
|
end
|
|
|
|
!Expect: m.mod
|
|
!module m
|
|
! type::t1(a,b,c)
|
|
! integer(4),kind::a
|
|
! integer(8),len::b
|
|
! integer(8),len::c
|
|
! integer(4)::d
|
|
! end type
|
|
! type,extends(t1)::t2(e)
|
|
! integer(4),len::e
|
|
! end type
|
|
! type,extends(t2)::t3
|
|
! end type
|
|
!end
|