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