1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Test correct use-association of a derived type.
4module m1
5  implicit none
6  type :: t
7  end type
8end module
9module m2
10  use m1, only: t
11end module
12module m3
13  use m2
14  type(t) :: o
15end
16
17! Test access-stmt with generic interface and type of same name.
18module m4
19  private
20  public :: t1, t2
21  type :: t2
22  end type
23  interface t1
24    module procedure init1
25  end interface
26  interface t2
27    module procedure init2
28  end interface
29  type :: t1
30  end type
31contains
32  type(t1) function init1()
33  end function
34  type(t2) function init2()
35  end function
36end module
37