gcc/testsuite/gfortran.dg/entry_4.f90

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