!
! Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
! See https://llvm.org/LICENSE.txt for license information.
! SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
!
! test weird naming, such as a submodule named "submodule"

module module
  integer :: x = 0;
  interface
    module subroutine tick
    end subroutine
    module subroutine tick2
    end subroutine
  end interface
end module module 

submodule (module) submodule
contains
  module procedure tick
    x = x + 1
  end procedure tick
end submodule submodule

submodule (module:submodule) module
contains 
  module procedure tick2
    call tick
    call tick
  end procedure tick2
end submodule module

module submodule 
  integer :: y = 0
  interface
    module subroutine add2
    end subroutine
    module subroutine add4
    end subroutine
  end interface
end module submodule

submodule (submodule) module
contains
  module procedure add2
    y = y + 2
  end procedure add2
end submodule

submodule (submodule) submodule
contains
  module procedure add4
    y = y + 4
  end procedure add4
end submodule


program checkxy
use module
use submodule
call tick
call tick2
call add2
call add4
print *, "x is ", x, " and y is ", y
if ( x .EQ. 3 .AND. y .EQ. 6) then
  print *, " PASS "
else
  print *, "TEST FAILED"
end if
end program checkxy