blob: e4e35c7531cbff9fd85f57b6e80d3955feb4ecc2 [file] [log] [blame]
! RUN: %python %S/ %s %flang_fc1
! Test correct use-association of a derived type.
module m1
implicit none
type :: t
end type
end module
module m2
use m1, only: t
end module
module m3
use m2
type(t) :: o
! Test access-stmt with generic interface and type of same name.
module m4
public :: t1, t2
type :: t2
end type
interface t1
module procedure init1
end interface
interface t2
module procedure init2
end interface
type :: t1
end type
type(t1) function init1()
end function
type(t2) function init2()
end function
end module