1*9f0f54a6SPeter Klausler! RUN: %python %S/test_errors.py %s %flang_fc1 2*9f0f54a6SPeter Klauslermodule m 3*9f0f54a6SPeter Klausler interface 4*9f0f54a6SPeter Klausler module subroutine separate 5*9f0f54a6SPeter Klausler end 6*9f0f54a6SPeter Klausler end interface 7*9f0f54a6SPeter Klausler contains 8*9f0f54a6SPeter Klausler subroutine modsub 9*9f0f54a6SPeter Klausler !ERROR: Module 'm' cannot USE itself 10*9f0f54a6SPeter Klausler use m 11*9f0f54a6SPeter Klausler end 12*9f0f54a6SPeter Klauslerend 13*9f0f54a6SPeter Klausler 14*9f0f54a6SPeter Klauslersubmodule(m) submod1 15*9f0f54a6SPeter Klausler contains 16*9f0f54a6SPeter Klausler module subroutine separate 17*9f0f54a6SPeter Klausler !ERROR: Module 'm' cannot USE itself from its own submodule 'submod1' 18*9f0f54a6SPeter Klausler !ERROR: Cannot use-associate 'separate'; it is already declared in this scope 19*9f0f54a6SPeter Klausler use m 20*9f0f54a6SPeter Klausler end 21*9f0f54a6SPeter Klauslerend 22*9f0f54a6SPeter Klausler 23*9f0f54a6SPeter Klauslersubmodule(m) submod2 24*9f0f54a6SPeter Klausler !ERROR: Module 'm' cannot USE itself from its own submodule 'submod2' 25*9f0f54a6SPeter Klausler use m 26*9f0f54a6SPeter Klauslerend 27*9f0f54a6SPeter Klausler 28