flang/test/Semantics/separate-mp04.f90

   1 ! RUN: %python %S/test_errors.py %s %flang_fc1
   2 ! Checks for multiple module procedure definitions
   3
   4 module m1
   5   interface
   6     module subroutine x001
   7     end subroutine
   8     module subroutine x002
   9     end subroutine
  10     module subroutine x003
  11     end subroutine
  12   end interface
  13 end
  14
  15 submodule(m1) sm1
  16   interface
  17     module subroutine x004
  18     end subroutine
  19   end interface
  20  contains
  21   module procedure x001 ! fine
  22   end procedure
  23   module subroutine x002
  24   end subroutine
  25   module subroutine x003
  26   end subroutine
  27 end
  28
  29 submodule(m1) sm2
  30  contains
  31   !ERROR: Module procedure 'x002' in module 'm1' has multiple definitions
  32   module subroutine x002
  33   end subroutine
  34 end
  35
  36 submodule(m1:sm2) sm3
  37  contains
  38   !ERROR: Module procedure 'x002' in module 'm1' has multiple definitions
  39   module subroutine x002
  40   end subroutine
  41   !ERROR: Module procedure 'x003' in module 'm1' has multiple definitions
  42   module subroutine x003
  43   end subroutine
  44 end
  45
  46 submodule(m1:sm1) sm4
  47  contains
  48   module subroutine x004
  49   end subroutine
  50 end
  51
  52 submodule(m1:sm1) sm5
  53  contains
  54   !ERROR: Module procedure 'x004' in module 'm1' has multiple definitions
  55   module subroutine x004
  56   end subroutine
  57 end