Subversion Repositories openrisc

! { dg-do compile }

! { dg-options "-Wall" }

!

! PR fortran/51056

!

! Contributed by Kacper Kowalik

!

module domain

   implicit none

   private

   public :: domain_container, dom

   type :: domain_container

      integer :: D_x      !< set to 1 when x-direction exists, 0 otherwise

    contains

      procedure :: init => init_domain_container

   end type domain_container

   type(domain_container) :: dom

   contains

      subroutine init_domain_container(this)

         implicit none

         class(domain_container), intent(inout) :: this

         this%D_x = 0

      end subroutine init_domain_container

end module domain

program ala

   use domain, only: dom

   implicit none

   call dom%init

end program ala

! { dg-final { cleanup-modules "domain" } }