29 lines · plain
1!RUN: %python %S/test_errors.py %s %flang_fc12module m13 type pair4 end type5 interface pair6 module procedure f7 end interface8 contains9 type(pair) function f(n)10 integer, intent(in) :: n11 f = pair()12 end13end14module m215 type pair16 end type17end18module m319 type pair20 end type21end22program main23 use m124 use m225 use m326 !ERROR: Reference to 'pair' is ambiguous27 type(pair) error28end29