1! { dg-do compile }
2! PR fortran/26551
3      SUBROUTINE SUB()
4      CALL SUB() ! { dg-error "is not RECURSIVE" }
5      END SUBROUTINE
6
7      FUNCTION FUNC() RESULT (FOO)
8      INTEGER FOO
9      FOO = FUNC() ! { dg-error "is not RECURSIVE" }
10      END FUNCTION
11
12      SUBROUTINE SUB2()
13      ENTRY ENT2()
14      CALL ENT2() ! { dg-error "is not RECURSIVE" }
15      END SUBROUTINE
16
17      function func2()
18      integer func2
19      func2 = 42
20      return
21      entry c() result (foo)
22      foo = b() ! { dg-error "is not RECURSIVE" }
23      return
24      entry b() result (bar)
25      bar = 12
26      return
27      end function
28