Subversion Repositories openrisc

! { dg-do run }
!
! PR fortran/39427
!
! Check constructor functionality.
!
!
module m
  interface cons
    procedure cons42
  end interface cons
contains
  integer function cons42()
    cons42 = 42
  end function cons42
end module m


module m2
  type cons
    integer :: j = -1
  end type cons
  interface cons
    procedure consT
  end interface cons
contains
  type(cons) function consT(k)
    integer :: k
    consT%j = k**2
  end function consT
end module m2


use m
use m2, only: cons
implicit none
type(cons) :: x
integer :: k
x = cons(3)
k = cons()
if (x%j /= 9) call abort ()
if (k /= 42) call abort ()
!print *, x%j
!print *, k
end

! { dg-final { cleanup-modules "m m2" } }