1! { dg-do compile }
2! PR fortran/68319
3!
4subroutine 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)
2110       format('(A)')        ! { dg-error "cannot appear within" }
22      end function fee
23
24   end interface
25
26end subroutine foo
27