gcc/testsuite/gfortran.dg/g77/980310-7.f

   1 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.