four new tests, fix commentary in fifth

From-SVN: r29130

6 files changed, 99 insertions, 6 deletions

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 41c8cfc..d9272e6 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,12 @@
+1999-09-05  Craig Burley  <craig@jcb-sc.com>
+
+	* g77.f-torture/compile/980519-2.f: New test.
+	* g77.f-torture/compile/19990905-0.f: New test.
+	* g77.f-torture/compile/19990905-1.f: New test.
+	* g77.f-torture/compile/19990905-2.f: New test.
+
+	* g77.f-torture/noncompile/19990826-4.f: Clarify who wrote what.
+
 Fri Sep  3 10:39:38 BST 1999  Richard Earnshaw <rearnsha@arm.com>
 
 	* gcc.c-torture/execute/990827-1.c: Fix typo.
diff --git a/gcc/testsuite/g77.f-torture/compile/19990905-0.f b/gcc/testsuite/g77.f-torture/compile/19990905-0.f
new file mode 100644
index 0000000..b945b2e
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/19990905-0.f
@@ -0,0 +1,7 @@
+* =foo0.f in Burley's g77 test suite.
+      subroutine sub(a)
+      common /info/ iarray(1000)
+      equivalence (m,iarray(100)), (n,iarray(200))
+      real a(m,n)
+      a(1,1) = a(2,2)
+      end
diff --git a/gcc/testsuite/g77.f-torture/compile/19990905-1.f b/gcc/testsuite/g77.f-torture/compile/19990905-1.f
new file mode 100644
index 0000000..026d05e
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/19990905-1.f
@@ -0,0 +1,8 @@
+* =foo7.f in Burley's g77 test suite.
+      subroutine x
+      real a(n)
+      common /foo/n
+      continue
+      entry y(a)
+      call foo(a(1))
+      end
diff --git a/gcc/testsuite/g77.f-torture/compile/19990905-2.f b/gcc/testsuite/g77.f-torture/compile/19990905-2.f
new file mode 100644
index 0000000..af82f65
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/19990905-2.f
@@ -0,0 +1,22 @@
+* =watson11.f in Burley's g77 test suite.
+* Probably originally submitted by Ian Watson.
+* Too small to worry about copyright issues, IMO, since it
+* doesn't do anything substantive.
+      SUBROUTINE OUTDNS(A,B,LCONV)
+      IMPLICIT REAL*8(A-H,O-Z),INTEGER*4(I-N)
+      COMMON/ARRAYS/Z(64,8),AB(30,30),PAIRS(9,9),T(9,9),TEMP(9,9),C1(3),
+     >  C2(3),AA(30),BB(30)
+      EQUIVALENCE (X1,C1(1)),(Y1,C1(2)),(Z1,C1(3))
+      EQUIVALENCE (X2,C2(1)),(Y2,C2(2)),(Z2,C2(3))
+      COMMON /CONTRL/
+     >  SHIFT,CONV,SCION,DIVERG,
+     >  IOPT,KCNDO,KINDO,KMINDO,I2EINT,KOHNO,KSLATE,
+     >  N,NG,NUMAT,NSEK,NELECS,NIT,OCCA,OCCB,NOLDAT,NOLDFN
+      INTEGER*4 OCCA,OCCB
+      DIMENSION W(N),A(N,N),B(N,N)
+      DIMENSION BUF(100)
+      occb=5
+      ENTRY INDNS (A,B)
+   40 READ(IREAD) BUF
+      STOP
+      END
diff --git a/gcc/testsuite/g77.f-torture/compile/980519-2.f b/gcc/testsuite/g77.f-torture/compile/980519-2.f
new file mode 100644
index 0000000..4e708a1
--- /dev/null
+++ b/gcc/testsuite/g77.f-torture/compile/980519-2.f
@@ -0,0 +1,47 @@
+* Date: Fri, 17 Apr 1998 14:12:51 +0200
+* From: Jean-Paul Jeannot <jeannot@gx-tech.fr>
+* Organization: GX Technology France
+* To: egcs-bugs@cygnus.com
+* Subject: identified bug in g77 on Alpha
+* 
+* Dear Sir,
+* 
+* You will find below the assembly code of a simple Fortran routine which
+* crashes with segmentation fault when storing the first element 
+*       in( jT_f-hd_T     ) = Xsp
+* whereas everything is fine when commenting this line.
+* 
+* The assembly code (generated with 
+* -ffast-math -fexpensive-optimizations -fomit-frame-pointer -fno-inline
+* or with -O5)
+* uses a zapnot instruction to copy an address.
+* BUT the zapnot parameter is 15 (copuing 4 bytes) instead of 255 (to copy
+* 8 bytes). 
+* 
+* I guess this is typically a 64 bit issue. As, from my understanding,
+* zapnots are used a lot to copy registers, this may create problems
+* elsewhere.
+* 
+* Thanks for your help
+* 
+* Jean-Paul Jeannot
+* 
+      subroutine simul_trace( in, Xsp, Ysp, Xrcv, Yrcv )
+
+      common /Idim/ jT_f, jT_l, nT, nT_dim
+      common /Idim/ jZ_f, jZ_l, nZ, nZ_dim
+      common /Idim/ jZ2_f, jZ2_l, nZ2, nZ2_dim
+      common /Idim/ jzs_f, jzs_l, nzs, nzs_dim, l_amp
+      common /Idim/ hd_S, hd_Z, hd_T
+      common /Idim/ nlay, nlayz
+      common /Idim/ n_work
+      common /Idim/ nb_calls
+	
+      real     Xsp, Ysp, Xrcv, Yrcv
+      real     in( jT_f-hd_T : jT_l )
+	
+      in( jT_f-hd_T     ) = Xsp
+      in( jT_f-hd_T + 1 ) = Ysp 
+      in( jT_f-hd_T + 2 ) = Xrcv
+      in( jT_f-hd_T + 3 ) = Yrcv
+      end
diff --git a/gcc/testsuite/g77.f-torture/noncompile/19990826-4.f b/gcc/testsuite/g77.f-torture/noncompile/19990826-4.f
index c8a01ce..86d2a93 100644
--- a/gcc/testsuite/g77.f-torture/noncompile/19990826-4.f
+++ b/gcc/testsuite/g77.f-torture/noncompile/19990826-4.f
@@ -1,9 +1,3 @@
-* Date: Mon, 26 May 1997 13:00:19 +0200 (GMT+0200)
-* From: "D. O'Donoghue" <dod@da.saao.ac.za>
-* To: Craig Burley <burley@gnu.ai.mit.edu>
-* Cc: fortran@gnu.ai.mit.edu
-* Subject: Re: g77 problems
-
 * Culled from 970528-1.f in Burley's g77 test suite.  Copyright
 * status not clear.  Feel free to chop down if the bug is still
 * reproducible (see end of test case for how bug shows up in gdb
@@ -12,6 +6,12 @@
 * to compile cleanly (with -O0, which works) while making sure the
 * ICE remained reproducible.  -- burley 1999-08-26
 
+* Date: Mon, 26 May 1997 13:00:19 +0200 (GMT+0200)
+* From: "D. O'Donoghue" <dod@da.saao.ac.za>
+* To: Craig Burley <burley@gnu.ai.mit.edu>
+* Cc: fortran@gnu.ai.mit.edu
+* Subject: Re: g77 problems
+
 	program dophot
 	parameter (napple = 4)
         common /window/nwindo,ixwin(50),iywin(50),iboxwin(50),itype(50)