36 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Test correct use-association of a derived type.3module m14 implicit none5 type :: t6 end type7end module8module m29 use m1, only: t10end module11module m312 use m213 type(t) :: o14end15 16! Test access-stmt with generic interface and type of same name.17module m418 private19 public :: t1, t220 type :: t221 end type22 interface t123 module procedure init124 end interface25 interface t226 module procedure init227 end interface28 type :: t129 end type30contains31 type(t1) function init1()32 end function33 type(t2) function init2()34 end function35end module36