gcc/testsuite/gfortran.dg/pr68319.f90

! { dg-do compile }
! PR fortran/68319
!
subroutine foo

   interface

      real function bar(i)
         f(i) = 2 * i         ! { dg-error "cannot appear within" }
      end function bar

      real function bah(j)
         entry boo(j)         ! { dg-error "cannot appear within" }
      end function bah

      real function fu(j)
         data i /1/           ! { dg-error "cannot appear within" }
      end function fu

      real function fee(j)
10       format('(A)')        ! { dg-error "cannot appear within" }
      end function fee

   end interface

end subroutine foo