xref: /llvm-project/flang/test/Semantics/resolve27.f90 (revision 6c1ac141d3c98af9738bc77fcb55602cbff7751f)
1*6c1ac141SIvan Zhechev! RUN: %python %S/test_errors.py %s %flang_fc1
264ab3302SCarolineConcattomodule m
364ab3302SCarolineConcatto  interface
464ab3302SCarolineConcatto    module subroutine s()
564ab3302SCarolineConcatto    end subroutine
664ab3302SCarolineConcatto  end interface
764ab3302SCarolineConcattoend
864ab3302SCarolineConcatto
964ab3302SCarolineConcattosubmodule(m) s1
1064ab3302SCarolineConcattoend
1164ab3302SCarolineConcatto
1264ab3302SCarolineConcattosubmodule(m) s2
1364ab3302SCarolineConcattoend
1464ab3302SCarolineConcatto
1564ab3302SCarolineConcattosubmodule(m:s1) s3
1664ab3302SCarolineConcatto  integer x
1764ab3302SCarolineConcattoend
1864ab3302SCarolineConcatto
1964ab3302SCarolineConcatto!ERROR: Module 'm' already has a submodule named 's3'
2064ab3302SCarolineConcattosubmodule(m:s2) s3
2164ab3302SCarolineConcatto  integer y
2264ab3302SCarolineConcattoend
23