gcc/testsuite/gfortran.dg/entry_24.f90

   1 ! { dg-do compile }
   2 ! PR fortran/87737 - improve check on function entry characteristics
   3
   4 function f() ! { dg-error "mismatched characteristics" }
   5   character(:), allocatable :: f
   6   character(1)              :: g
   7   f = 'f'
   8   return
   9 entry g()
  10   g = 'g'
  11 end
  12
  13 function f2() ! { dg-error "mismatched characteristics" }
  14   character(1)              :: f2
  15   character(1), allocatable :: g2
  16   f2 = 'f'
  17   return
  18 entry g2()
  19   g2 = 'g'
  20 end