blob: 4ec17513ec048c429b536780d5478382cd0f6b73 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
! { 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
|
