Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/43362

!

module m

  implicit none

  type t

    integer, pointer :: a

  end type t

  type t2

    type(t) :: b

  end type t2

  type t3

    type(t), pointer :: b

  end type t3

contains

 pure subroutine foo(x)

   type(t), target, intent(in) :: x

   type(t2) :: y

   type(t3) :: z

   ! The following gave an ICE but is valid:

   y = t2(x) ! Note: F2003, C1272 (3) and (4) do not apply

   ! Variant which is invalid as C1272 (3) applies

   z = t3(x) ! { dg-error "Invalid expression in the structure constructor" }

 end subroutine foo

end module m

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