blob: d2646b6ca6154b0232933a6578d97f8d054ef168 [file] [log] [blame]
! RUN: %python %S/ %s %flang_fc1
! Ensure that an interface with the same name as a derived type
! does not cause that shadowed name to be emitted later than its
! uses in the module file.
module m
type :: t
end type
type :: t2
type(t) :: c
end type
interface t
module procedure f
end interface
type(t) function f
end function
end module
!Expect: m.mod
!module m
!interface t
!end interface
!end type
!end type
!function f()