83 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic2! USE vs IMPORT3module m14 type t5 integer n6 end type7end module8 9module m210 type t11 real x12 end type13end module14 15module m316 use m117 interface18 subroutine s1(x)19 use m120 !PORTABILITY: The same 't' is already present in this scope [-Wbenign-name-clash]21 import t22 type(t) x23 end24 subroutine s2(x)25 use m226 !ERROR: A distinct 't' is already present in this scope27 import t28 type(t) x29 end30 end interface31end module32 33module m434 type t35 complex z36 end type37 interface38 subroutine s3(x)39 use m140 !ERROR: A distinct 't' is already present in this scope41 import t42 type(t) x43 end44 end interface45end module46 47module m548 interface49 subroutine s4(x)50 use m151 !ERROR: A distinct 't' is already present in this scope52 import t53 type(t) x54 end55 end interface56 contains57 subroutine t58 end59end module60 61module m6a62 integer :: i = 763end module64 65module m6b66 interface67 module subroutine sub(arg)68 interface69 integer function arg(x)70 use m6a, only: i71 real :: x(i) ! ok72 end73 end interface74 end75 end interface76end module77 78submodule (m6b) m6bs179 contains80 module procedure sub81 end82end submodule83