3 ! Check the fix for PR69524, where module procedures were not permitted
4 ! in a module CONTAINS section.
6 ! Reorted by Kirill Yukhin <kyukhin@gcc.gnu.org>
11 module subroutine A1(i)
12 integer, intent(inout) :: i
14 module subroutine A2(i)
15 integer, intent(inout) :: i
17 integer module function A3(i)
18 integer, intent(inout) :: i
20 module subroutine B1(i)
21 integer, intent(inout) :: i
24 integer :: incr ! Make sure that everybody can access a module variable
26 module subroutine A1(i) ! Full declaration
27 integer, intent(inout) :: i
28 call b1 (i) ! Call the submodule procedure
32 module PROCEDURE A2 ! Abreviated declaration
33 call b1 (i) ! Call the submodule procedure
37 module PROCEDURE A3 ! Abreviated declaration
38 call a1 (i) ! Call the module procedure in the module
40 call b1 (i) ! Call the submodule procedure
57 if (a3(i) .ne. 11) call abort
59 ! { dg-final { cleanup-submodules "a@a_son" } }