1! { dg-do compile { target i?86-*-* x86_64-*-* } }
2function f1 () result (r)      ! { dg-error "can't be a POINTER" }
3integer, pointer :: r
4real e1
5allocate (r)
6r = 6
7return
8entry e1 ()
9e1 = 12
10entry e1a ()
11e1a = 13
12end function
13function f2 ()
14integer, dimension (2, 7, 6) :: e2   ! { dg-error "can't be an array" }
15f2 = 6
16return
17entry e2 ()
18e2 (:, :, :) = 2
19end function
20integer(kind=8) function f3 ()      ! { dg-error "can't be of type" }
21complex(kind=8) e3              ! { dg-error "can't be of type" }
22f3 = 1
23return
24entry e3 ()
25e3 = 2
26entry e3a ()
27e3a = 3
28end function
29