Subversion Repositories openrisc

! { dg-do compile }

! Tests patch for problem that was found whilst investigating

! PR24158. The call to foo would cause an ICE because the

! actual argument was of a type that was not defined.  The USE

! GLOBAL was commented out, following the fix for PR29364.

!

! Contributed by Paul Thomas 

!

module global

  type :: t2

    type(t3), pointer :: d ! { dg-error "has not been declared" }

  end type t2

end module global

program snafu

!  use global

  implicit type (t3) (z)

  call foo (zin) ! { dg-error "defined|Type mismatch" }

contains

  subroutine foo (z)

    type :: t3

      integer :: i

    end type t3

    type(t3)  :: z

    z%i = 1

  end subroutine foo

end program snafu

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