This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Copy remaining cases in g77.f-torture/compile to gfortran.dg/g77
- From: "Billinghurst, David (CALCRTS)" <david dot billinghurst at comalco dot riotinto dot com dot au>
- To: <gcc-patches at gcc dot gnu dot org>
- Cc: <fortran at gcc dot gnu dot org>
- Date: Tue, 13 Jul 2004 17:08:31 +1000
- Subject: Copy remaining cases in g77.f-torture/compile to gfortran.dg/g77
I have copied the remaining test cases from g77.f-torture/compile to
gfortran.dg/g77. Each case needed slight changes, but I have tried to
preserve the essential nature of the test.
Diffs of interesting changes below.
2004-07-13 David Billinghurst (David.Billinghurst@riotinto.com)
Copy files from g77.f-torture/compile. Add "{ dg-do compile}"
Other changes as noted
* gfortran.dg/g77/19990905-0.f: XFAIL PR 16511
* gfortran.dg/g77/20010519-1.f: Add dg-warning as required
* gfortran.dg/g77/20030115-1.f: Add dg-warning as required
* gfortran.dg/g77/20030326-1.f: XFAIL PR 16511
* gfortran.dg/g77/970125-0.f: Add dg-excess-errors.
* gfortran.dg/g77/980519-2.f: Declare hd_S,hd_Z,hd_T
* gfortran.dg/g77/990115-1.f: Declare RANK as INTEGER
* gfortran.dg/g77/alpha1.f: Separate declation and DATA
statement. Append alpha1.x for reference.
* gfortran.dg/g77/xformat.f: Add dg-warning
--- g77.f-torture/compile/980519-2.f Mon Sep 6 04:27:06 1999
+++ gfortran.dg/g77/980519-2.f Tue Jul 13 14:03:52 2004
@@ -1,3 +1,4 @@
+c { dg-do compile }
* Date: Fri, 17 Apr 1998 14:12:51 +0200
* From: Jean-Paul Jeannot <jeannot@gx-tech.fr>
* Organization: GX Technology France
@@ -27,6 +28,9 @@
* Jean-Paul Jeannot
*
subroutine simul_trace( in, Xsp, Ysp, Xrcv, Yrcv )
+
+c Next declaration added on transfer to gfortran testsuite
+ integer hd_S, hd_Z, hd_T
common /Idim/ jT_f, jT_l, nT, nT_dim
common /Idim/ jZ_f, jZ_l, nZ, nZ_dim
--- g77.f-torture/compile/alpha1.f Thu Dec 17 09:05:21 1998
+++ gfortran.dg/g77/alpha1.f Tue Jul 13 13:20:30 2004
@@ -1,10 +1,27 @@
+c { dg-do compile }
REAL*8 A,B,C
- REAL*4 RARRAY(19)/19*(-1)/
+ REAL*4 RARRAY(19)
+ DATA RARRAY /19*-1/
INTEGER BOTTOM,RIGHT
- INTEGER IARRAY(19)/0,0,0,0,0,0,0,0,0,0,0,0,13,14,0,0,0,0,0/
+ INTEGER IARRAY(19)
+ DATA IARRAY /0,0,0,0,0,0,0,0,0,0,0,0,13,14,0,0,0,0,0/
EQUIVALENCE (RARRAY(13),BOTTOM),(RARRAY(14),RIGHT)
C
IF(I.NE.0) call exit(1)
C gcc: Internal compiler error: program f771 got fatal signal 11
C at this point!
END
+
+! previously g77.ftorture/compile/alpha1.f with following alpha1.x
+!
+!# This test fails compilation in cross-endian environments, for example as
+!# below, with a "sorry" message.
+!
+!if { [ishost "i\[34567\]86-*-*"] } {
+! if { [istarget "mmix-knuth-mmixware"]
+! || [istarget "powerpc-*-*"] } {
+! set torture_compile_xfail [istarget]
+! }
+!}
+!
+!return 0