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