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