Subversion Repositories openrisc

! { dg-do compile }

!

! Contributed by Vittorio Zecca 

!

! PR 50401: SIGSEGV in resolve_transfer

  interface

    function f()      ! { dg-error "must be a dummy argument" }

      dimension f(*)

    end function

  end interface

  print *,f()

end

! PR 50403: SIGSEGV in gfc_use_derived

type(f) function f()  ! { dg-error "Type name 'f' at .1. conflicts with previously declared entity|The type for function 'f' at .1. is not accessible" }

  f=110               ! { dg-error "Unclassifiable statement" }

end