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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [980310-7.f] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
c { dg-do compile }
2
C From: "David C. Doherty" <doherty@networkcs.com>
3
C Message-Id: <199711171846.MAA27947@uh.msc.edu>
4
C Subject: g77: auto arrays + goto = no go
5
C To: egcs-bugs@cygnus.com
6
C Date: Mon, 17 Nov 1997 12:46:27 -0600 (CST)
7
 
8
C I sent the following to fortran@gnu.ai.mit.edu, and Dave Love
9
C replied that he was able to reproduce it on rs6000-aix; not on
10
C others. He suggested that I send it to egcs-bugs. 
11
 
12
C Hi - I've observed the following behavior regarding 
13
C automatic arrays and gotos.  Seems similar to what I found
14
C in the docs about computed gotos (but not exactly the same).
15
C 
16
C I suspect from the nature of the error msg that it's in the GBE.
17
C 
18
C I'm using egcs-971105, under linux-ppc.
19
C 
20
C I also observed the same in g77-0.5.19 (and gcc 2.7.2?).
21
C 
22
C I'd appreciate any advice on this.  thanks for the great work.
23
C --
24
C >cat testg77.f
25
      subroutine testg77(n, a)
26
c
27
      implicit none
28
c
29
      integer n
30
      real a(n)
31
      real b(n)
32
      integer i
33
c
34
      do i = 1, 10
35
        if (i .gt. 4) goto 100
36
        write(0, '(i2)')i
37
      enddo
38
c
39
      goto 200
40
100   continue
41
200   continue
42
c
43
      return
44
      end
45
C >g77 -c testg77.f
46
C testg77.f: In subroutine `testg77':
47
C testg77.f:19: label `200' used before containing binding contour
48
C testg77.f:18: label `100' used before containing binding contour
49
C --
50
C If I comment out the b(n) line or replace it with, e.g., b(10),
51
C it compiles fine.

powered by: WebSVN 2.1.0

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