1! { dg-do compile }
2! { dg-options "-Wall" }
3!
4! PR fortran/51056
5!
6! Contributed by Kacper Kowalik
7!
8module domain
9   implicit none
10   private
11   public :: domain_container, dom
12
13   type :: domain_container
14      integer :: D_x      !< set to 1 when x-direction exists, 0 otherwise
15    contains
16      procedure :: init => init_domain_container
17   end type domain_container
18
19   type(domain_container) :: dom
20
21   contains
22      subroutine init_domain_container(this)
23         implicit none
24         class(domain_container), intent(inout) :: this
25         this%D_x = 0
26      end subroutine init_domain_container
27end module domain
28
29program ala
30   use domain, only: dom
31   implicit none
32   call dom%init
33end program ala
34