blob: 661e2540bb3e898d2b166460bbbe27805c87c5b5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
! { dg-do compile }
!
function g()
interface
subroutine g() ! { dg-error "RESULT attribute in 'g'" }
end subroutine g
end interface
real g ! { dg-error "Symbol 'g' at .1. cannot have a type" }
end function
|