Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/34714 - ICE on invalid

! Testcase contributed by Martin Reinecke 

!

module foo

  type bar

    logical, pointer, dimension(:) :: baz

  end type

contains

function func1()

  type(bar) func1

  allocate(func1%baz(1))

end function

function func2()

  type(bar) func2

  allocate(func1%baz(1))      ! { dg-error "is not a variable" }

end function

end module foo

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