1! { dg-do compile }
2!
3! Contributed by Vittorio Zecca <zeccav@gmail.com>
4!
5! PR 50401: SIGSEGV in resolve_transfer
6
7  interface
8    function f()      ! { dg-error "must be a dummy argument|Interface mismatch in global procedure" }
9      dimension f(*)
10    end function
11  end interface
12  print *,f()
13end
14
15! PR 50403: SIGSEGV in gfc_use_derived
16
17type(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" }
18  f=110               ! { dg-error "Unclassifiable statement" }
19end
20