gcc/testsuite/gfortran.dg/pr68319.f90

   1 ! { dg-do compile }
   2 ! PR fortran/68319
   3 !
   4 subroutine foo
   5
   6    interface
   7
   8       real function bar(i)
   9          f(i) = 2 * i         ! { dg-error "cannot appear within" }
  10       end function bar
  11
  12       real function bah(j)
  13          entry boo(j)         ! { dg-error "cannot appear within" }
  14       end function bah
  15
  16       real function fu(j)
  17          data i /1/           ! { dg-error "cannot appear within" }
  18       end function fu
  19
  20       real function fee(j)
  21 10       format('(A)')        ! { dg-error "cannot appear within" }
  22       end function fee
  23
  24    end interface
  25
  26 end subroutine foo