58 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Checks for multiple module procedure definitions3 4module m15 interface6 module subroutine x0017 end subroutine8 module subroutine x0029 end subroutine10 module subroutine x00311 end subroutine12 end interface13end14 15submodule(m1) sm116 interface17 module subroutine x00418 end subroutine19 end interface20 contains21 module procedure x001 ! fine22 end procedure23 module subroutine x00224 end subroutine25 module subroutine x00326 end subroutine27end28 29submodule(m1) sm230 contains31 !ERROR: Module procedure 'x002' in 'm1' has multiple definitions32 module subroutine x00233 end subroutine34end35 36submodule(m1:sm2) sm337 contains38 !ERROR: Module procedure 'x002' in 'm1' has multiple definitions39 module subroutine x00240 end subroutine41 !ERROR: Module procedure 'x003' in 'm1' has multiple definitions42 module subroutine x00343 end subroutine44end45 46submodule(m1:sm1) sm447 contains48 module subroutine x00449 end subroutine50end51 52submodule(m1:sm1) sm553 contains54 !ERROR: Module procedure 'x004' in 'm1:sm1' has multiple definitions55 module subroutine x00456 end subroutine57end58