blob: dde0ea97a5759ac9907f605470b69898bdd6f1df [file] [log] [blame]
! RUN: %S/ %s %t %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()