48 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12subroutine s13 !OK: interface followed by type with same name4 interface t5 end interface6 type t7 end type8 type(t) :: x9 x = t()10end subroutine11 12subroutine s213 !OK: type followed by interface with same name14 type t15 end type16 interface t17 end interface18 type(t) :: x19 x = t()20end subroutine21 22subroutine s323 type t24 end type25 interface t26 end interface27 !ERROR: 't' is already declared in this scoping unit28 type t29 end type30 type(t) :: x31 x = t()32end subroutine33 34module m435 type t136 class(t2), pointer :: p => null()37 end type38 type t239 end type40 interface t241 procedure ctor42 end interface43 contains44 function ctor()45 type(t2) ctor46 end function47end module48