gcc/testsuite/gfortran.dg/use_21.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-Wall" }
   3 !
   4 ! PR fortran/51056
   5 !
   6 ! Contributed by Kacper Kowalik
   7 !
   8 module 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
  27 end module domain
  28
  29 program ala
  30    use domain, only: dom
  31    implicit none
  32    call dom%init
  33 end program ala