Subversion Repositories openrisc

! { dg-do compile }
!
! PR fortran/47399
!
! Contributed by Wolfgang Kilian.
!

module mytypes
   implicit none
   private
   public :: mytype, get_i

   integer, save :: i_priv = 13
   type :: mytype
      integer :: dummy
    contains
      procedure, nopass :: i => get_i
   end type mytype
 contains
   pure function get_i () result (i)
     integer :: i
     i = i_priv
   end function get_i
end module mytypes

subroutine test()
   use mytypes
   implicit none

   type(mytype) :: a
   type(mytype), parameter :: a_const = mytype (0)
   integer, dimension (get_i()) :: x            ! #1
   integer, dimension (a%i()) :: y              ! #2
   integer, dimension (a_const%i()) :: z        ! #3

   if (size (x) /= 13 .or. size(y) /= 13 .or. size(z) /= 13) call abort()
!   print *, size (x), size(y), size(z)
end subroutine test

call test()
end

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