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