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