OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [recursive_check_1.f] - Blame information for rev 816

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 149 jeremybenn
! { dg-do compile }
2
! PR fortran/26551
3
      SUBROUTINE SUB()
4
      CALL SUB() ! { dg-error "cannot call itself, as it is not RECURSIVE" }
5
      END SUBROUTINE
6
 
7
      FUNCTION FUNC() RESULT (FOO)
8
      INTEGER FOO
9
      FOO = FUNC() ! { dg-error "cannot call itself, as it is not RECURSIVE" }
10
      END FUNCTION
11
 
12
      SUBROUTINE SUB2()
13
      ENTRY ENT2()
14
      CALL ENT2() ! { dg-error "is not declared as 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 declared as RECURSIVE" }
23
      return
24
      entry b() result (bar)
25
      bar = 12
26
      return
27
      end function

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.