2 ! { dg-require-visibility "" }
6 ! Contributed by Wolfgang Kilian.
12 public
:: mytype
, get_i
14 integer, save :: i_priv
= 13
18 procedure
, nopass
:: i
=> get_i
21 pure
function get_i () result (i
)
32 type(mytype
), parameter :: a_const
= mytype (0)
33 integer, dimension (get_i()) :: x
! #1
34 integer, dimension (a
%i()) :: y
! #2
35 integer, dimension (a_const
%i()) :: z
! #3
37 if (size (x
) /= 13 .or
. size(y
) /= 13 .or
. size(z
) /= 13) STOP 1
38 ! print *, size (x), size(y), size(z)