3 ! Tests the fix for PR79676 in which submod_test was private even to the
4 ! submodule 'my_submod'.
6 ! Contributed by Adam Hirst <adam@aphirst.karoo.co.uk>
9 private ! This hid 'submod_test'.
11 module subroutine submod_test(x)
16 public routine1, print_two, answer
18 subroutine routine1(x)
22 subroutine print_two()
23 integer, parameter :: two = 2
31 subroutine circular_dependency()
36 submodule (my_mod) my_submod
39 module subroutine submod_test(x)
42 call circular_dependency()
51 if (answer .ne. 4) STOP 1