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