gcc/testsuite/gfortran.dg/entry_24.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

! { dg-do compile }
! PR fortran/87737 - improve check on function entry characteristics

function f() ! { dg-error "mismatched characteristics" }
  character(:), allocatable :: f
  character(1)              :: g
  f = 'f'
  return
entry g()
  g = 'g'
end

function f2() ! { dg-error "mismatched characteristics" }
  character(1)              :: f2
  character(1), allocatable :: g2
  f2 = 'f'
  return
entry g2()
  g2 = 'g'
end