gcc/testsuite/gfortran.dg/function_types_3.f90

   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()
  13 end
  14
  15 ! PR 50403: SIGSEGV in gfc_use_derived
  16
  17 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" }
  18   f=110               ! { dg-error "Type inaccessible in variable definition context" }
  19 end