blob: 8534724959a7a23cac7526b99c32a3a351a60edc [file] [log] [blame]
! { dg-do compile }
!
function g()
interface
subroutine g()
end subroutine g
end interface
pointer g
real g ! { dg-error "Symbol 'g' at .1. cannot have a type" }
end function