1! { dg-do compile }
2!
3
4function g()
5 interface
6    subroutine g()
7    end subroutine g
8  end interface
9  pointer g
10  real g   ! { dg-error "Symbol 'g' at .1. cannot have a type" }
11end function
12
13