gcc-4.9/gcc/testsuite/gfortran.dg/function_types_3.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

! { dg-do compile }
!
! Contributed by Vittorio Zecca <zeccav@gmail.com>
!
! PR 50401: SIGSEGV in resolve_transfer

  interface 
    function f()      ! { dg-error "must be a dummy argument|Interface mismatch in global procedure" }
      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