gcc/testsuite/gfortran.dg/pr104351.f90

   1 ! { dg-do compile }
   2 ! PR fortran/104351
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   implicit none
   7   type t
   8   end type
   9   type(t) :: f
  10 contains
  11   real function f() result(z) ! { dg-error "has an explicit interface" }
  12     z = 0.0                   ! { dg-error "assignment" }
  13   end function f              ! { dg-error "Expecting END PROGRAM" }
  14 end