+2004-07-13 David Billinghurst (David.Billinghurst@riotinto.com)
+
+ * gfortran.dg/g77/README: New file
+ * gfortran.dg/g77/19981216-0.f: Copy from
+ g77.f-torture/noncompile. Add "dg-do compile" and
+ dg-error as required.
+ * gfortran.dg/g77/19990218-1.f: Likewise
+ * gfortran.dg/g77/19990905-1.f: Likewise
+ * gfortran.dg/g77/9263.f: Likewise
+ * gfortran.dg/g77/980615-0.f: Likewise
+ * gfortran.dg/g77/980616-0.f: Likewise
+ * gfortran.dg/g77/check0.f: Likewise
+ * gfortran.dg/g77/select_no_compile.f: Likewise
+
2004-07-13 David Billinghurst (David.Billinghurst@riotinto.com)
Copy files from g77.f-torture/compile.
--- /dev/null
+c { dg-do compile }
+* Resent-From: Craig Burley <burley@gnu.org>
+* Resent-To: craig@jcb-sc.com
+* X-Delivered: at request of burley on mescaline.gnu.org
+* Date: Wed, 16 Dec 1998 18:31:24 +0100
+* From: Dieter Stueken <stueken@conterra.de>
+* Organization: con terra GmbH
+* To: fortran@gnu.org
+* Subject: possible bug
+* Content-Type: text/plain; charset=iso-8859-1
+* X-Mime-Autoconverted: from 8bit to quoted-printable by mescaline.gnu.org id KAA09085
+* X-UIDL: 72293bf7f9fac8378ec7feca2bccbce2
+*
+* Hi,
+*
+* I'm about to compile a very old, very ugly Fortran program.
+* For one part I got:
+*
+* f77: Internal compiler error: program f771 got fatal signal 6
+*
+* instead of any detailed error message. I was able to break down the
+* problem to the following source fragment:
+*
+* -------------------------------------------
+ PROGRAM WAP
+
+ integer*2 ios
+ character*80 name
+
+ name = 'blah'
+ open(unit=8,status='unknown',file=name,form='formatted',
+ F iostat=ios)
+
+ END
+* -------------------------------------------
+*
+* The problem seems to be caused by the "integer*2 ios" declaration.
+* So far I solved it by simply using a plain integer instead.
+*
+* I'm running gcc on a Linux system compiled/installed
+* with no special options:
+*
+* -> g77 -v
+* g77 version 0.5.23
+* Driving: g77 -v -c -xf77-version /dev/null -xnone
+* Reading specs from /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/specs
+* gcc version 2.8.1
+* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/cpp -lang-c -v -undef
+* -D__GNUC__=2 -D__GNUC_MINOR__=8 -D__ELF__ -D__unix__ -D__linux__
+* -D__unix -D__linux -Asystem(posix) -D_LANGUAGE_FORTRAN -traditional
+* -Di386 -Di686 -Asystem(unix) -Acpu(i386) -Amachine(i386) -D__i386__
+* -D__i686__ -Asystem(unix) -Acpu(i386) -Amachine(i386) /dev/null
+* /dev/null
+* GNU CPP version 2.8.1 (i386 GNU/Linux with ELF)
+* #include "..." search starts here:
+* #include <...> search starts here:
+* /usr/local/include
+* /usr/i686-pc-linux-gnulibc1/include
+* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/include
+* /usr/include
+* End of search list.
+* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/f771 -fnull-version
+* -quiet -dumpbase g77-version.f -version -fversion -o /tmp/cca24911.s
+* /dev/null
+* GNU F77 version 2.8.1 (i686-pc-linux-gnulibc1) compiled by GNU C version
+* 2.8.1.
+* GNU Fortran Front End version 0.5.23
+* as -V -Qy -o /tmp/cca24911.o /tmp/cca24911.s
+* GNU assembler version 2.8.1 (i486-linux), using BFD version 2.8.1
+* ld -m elf_i386 -dynamic-linker /lib/ld-linux.so.1 -o /tmp/cca24911
+* /tmp/cca24911.o /usr/lib/crt1.o /usr/lib/crti.o
+* /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/crtbegin.o
+* -L/usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1 -L/usr -lg2c -lm -lgcc
+* -lc -lgcc /usr/lib/gcc-lib/i686-pc-linux-gnulibc1/2.8.1/crtend.o
+* /usr/lib/crtn.o
+* /tmp/cca24911
+* __G77_LIBF77_VERSION__: 0.5.23
+* @(#)LIBF77 VERSION 19970919
+* __G77_LIBI77_VERSION__: 0.5.23
+* @(#) LIBI77 VERSION pjw,dmg-mods 19980405
+* __G77_LIBU77_VERSION__: 0.5.23
+* @(#) LIBU77 VERSION 19970919
+*
+*
+* Regards, Dieter.
+* --
+* Dieter Stüken, con terra GmbH, Münster
+* stueken@conterra.de stueken@qgp.uni-muenster.de
+* http://www.conterra.de/ http://qgp.uni-muenster.de/~stueken
+* (0)251-980-2027 (0)251-83-334974
--- /dev/null
+c { dg-do compile }
+c
+c g77 used to warn for this case
+c 19990218-1.f: In program `test':
+c 19990218-1.f:13:
+c double precision function fun(a,b)
+c 1
+c 19990218-1.f:23: (continued):
+c c=fun(a,b)
+c 2
+c Global name `fun' at (2) has different type at (1) [info -f g77 M GLOBALS]
+c
+ double precision function fun(a,b)
+ double precision a,b
+ print*,'in sub: a,b=',a,b
+ fun=a*b
+ print*,'in sub: fun=',fun
+ return
+ end
+ program test
+ double precision a,b,c
+ data a,b/1.0d-46,1.0d0/
+ c=fun(a,b)
+ print*,'in main: fun=',c
+ end
--- /dev/null
+c { dg-do compile }
+c
+c g77 gave error
+c 19990905-1.f: In subroutine `x':
+c 19990905-1.f:15:
+c common /foo/n
+c 1
+c 19990905-1.f:18: (continued):
+c call foo(a(1))
+c 2
+c Invalid declaration of or reference to symbol `foo' at (2) [initially seen at (1)]
+* =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
+c { dg-excess-errors "" } PR 16520
--- /dev/null
+c { dg-do compile }
+c
+c g77 gave error
+c 19990905-1.f: In subroutine `x':
+c 19990905-1.f:15:
+c common /foo/n
+c 1
+c 19990905-1.f:18: (continued):
+c call foo(a(1))
+c 2
+c Invalid declaration of or reference to symbol `foo' at (2) [initially seen at (1)]
+* =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
+c { dg-excess-errors "" }
--- /dev/null
+C { dg-do compile }
+ PARAMETER (Q=1)
+ PARAMETER (P=10)
+ INTEGER C(10),D(10),E(10),F(10)
+C TERMINAL NOT INTEGER
+ DATA (C(I),I=1,P) /10*10/ ! { dg-error "End expression in DO loop" "" }
+C START NOT INTEGER
+ DATA (D(I),I=Q,10) /10*10/ ! { dg-error "Start expression in DO loop" "" }
+C INCREMENT NOT INTEGER
+ DATA (E(I),I=1,10,Q) /10*10/ ! { dg-error "Step expression in DO loop" "" }
+ END
--- /dev/null
+c { dg-do compile }
+* Fixed by JCB 1998-07-25 change to stc.c.
+
+* Date: Thu, 11 Jun 1998 22:35:20 -0500
+* From: Ian A Watson <WATSON_IAN_A@lilly.com>
+* Subject: crash
+*
+ CaLL foo(W)
+ END
+ SUBROUTINE foo(W)
+ yy(I)=A(I)Q(X) ! { dg-error "Error: Unclassifiable statement" "" }
+c { dg-error "end of file" "end of file" { target *-*-* } 0 }
--- /dev/null
+c { dg-do compile }
+* Fixed by 1998-07-11 equiv.c change.
+* ../../gcc/f/equiv.c:666: failed assertion `ffebld_op (subscript) == FFEBLD_opCONTER'
+
+* Date: Mon, 15 Jun 1998 21:54:32 -0500
+* From: Ian A Watson <WATSON_IAN_A@lilly.com>
+* Subject: Mangler Crash
+ EQUIVALENCE(I,glerf(P)) ! { dg-error "cannot appear" "cannot appear" }
+ COMMON /foo/ glerf(3)
+c { dg-error "end of file" "end of file" { target *-*-* } 0 }
--- /dev/null
+The g77 testsuite is being transferred to the gfortran testsuite.
+This file documents the status of each test case.
+
+ Y Test has been transferred.
+ Y XFAIL This test has been transferred but fails
+ N This feature will not be supported by gfortran.
+ F This test fails with gfortran. Not transferred (yet).
+ ? We looked at this case, but haven't decided.
+
+Directory g77.dg
+
+12632.f Y
+20010216-1.f Y
+7388.f Y
+f77-edit-apostrophe-out.f Y
+f77-edit-colon-out.f Y
+f77-edit-h-out.f Y
+f77-edit-i-in.f Y
+f77-edit-i-out.f Y
+f77-edit-s-out.f Y XFAIL PR 16434
+f77-edit-slash-out.f Y
+f77-edit-t-in.f Y XFAIL PR 16436
+f77-edit-t-out.f Y
+f77-edit-x-out.f Y XFAIL PR 16435
+fbackslash.f ?
+fcase-preserve.f ?
+ff90-1.f ?
+ffixed-form-1.f Y
+ffixed-form-2.f Y
+ffixed-line-length-0.f F PR 16464
+ffixed-line-length-132.f F PR 16464
+ffixed-line-length-7.f F PR 16464
+ffixed-line-length-72.f F PR 16464
+ffixed-line-length-none.f F PR 16464
+ffree-form-1.f Y
+ffree-form-2.f Y
+ffree-form-3.f Y
+fno-backslash.f ?
+fno-f90-1.f ?
+fno-fixed-form-1.f ?
+fno-onetrip.f ?
+fno-typeless-boz.f ?
+fno-underscoring.f Y
+fno-vxt-1.f ?
+fonetrip.f ?
+ftypeless-boz.f ?
+fugly-assumed.f ?
+funderscoring.f Y
+fvxt-1.f ?
+pr3743-1.f ?
+pr3743-2.f ?
+pr3743-3.f ?
+pr3743-4.f ?
+pr5473.f ?
+pr9258.f Y
+strlen0.f Y
+
+
+Directory g77.dg/bprob
+g77-bprob-1.f
+
+
+Directory g77.dg/gcov
+gcov-1.f
+
+Directory g77.f-torture/compile
+12002.f Y
+13060.f Y
+19990218-0.f Y
+19990305-0.f Y
+19990419-0.f Y
+19990502-0.f Y
+19990502-1.f Y
+19990525-0.f Y
+19990826-1.f Y
+19990826-3.f Y
+19990905-0.f Y XFAIL PR 16511
+19990905-2.f Y
+20000412-1.f Y
+20000511-1.f Y
+20000511-2.f Y
+20000518.f Y
+20000601-1.f Y
+20000601-2.f Y
+20000629-1.f Y
+20000630-2.f Y
+20010115.f Y
+20010321-1.f Y
+20010426.f Y
+20010519-1.f Y Add dg-warnings for ASSIGN
+20020307-1.f Y
+20030115-1.f Y Add dg-warnings for ASSIGN
+20030326-1.f Y XFAIL PR 16512
+8485.f Y
+960317-1.f Y
+970125-0.f Y Add dg-excess-errors. Investigate.later.
+970915-0.f Y
+980310-1.f Y
+980310-2.f Y
+980310-3.f Y
+980310-4.f Y
+980310-6.f Y
+980310-7.f Y
+980310-8.f Y
+980419-2.f Y
+980424-0.f Y
+980427-0.f Y
+980519-2.f Y Modify slightly
+980729-0.f Y
+981117-1.f Y
+990115-1.f Y Declare variable RANK
+alpha1.f Y Work around PR 16508 and PR 16509
+toon_1.f Y
+xformat.f Y Add dg-warning for extension
+cpp.F Y
+cpp2.F Y
+
+g77.f-torture/execute
+10197.f & 10197.x
+13037.f
+1832.f
+19981119-0.f
+19990313-0.f
+19990313-1.f
+19990313-2.f
+19990313-3.f
+19990325-0.f
+19990325-1.f
+19990419-1.f
+19990826-0.f
+19990826-2.f
+20000503-1.f
+20001111.f
+20001201.f & 20001201.x
+20010116.f
+20010426.f
+20010430.f
+20010610.f
+5122.f
+6177.f
+6367.f & 6367.x
+947.f
+970625-2.f
+970816-3.f
+971102-1.f
+980520-1.f
+980628-0.f
+980628-1.f
+980628-10.f
+980628-2.f
+980628-3.f
+980628-4.f & 980628-4.x
+980628-5.f & 980628-5.x
+980628-6.f & 980628-6.x
+980628-7.f
+980628-8.f
+980628-9.f
+980701-0.f
+980701-1.f
+CVS
+alpha2.f & alpha2.x
+auto0.f & auto0.x
+auto1.f & auto1.x
+cabs.f
+claus.f
+complex_1.f
+cpp.F
+cpp2.F
+dcomplex.f
+dnrm2.f
+erfc.f
+exp.f
+f90-intrinsic-bit.f
+f90-intrinsic-mathematical.f
+f90-intrinsic-numeric.f
+int8421.f
+intrinsic-f2c-z.f
+intrinsic-unix-bessel.f
+intrinsic-unix-erf.f
+intrinsic-vax-cd.f
+intrinsic77.f
+io0.f & io0.x
+io1.f & io1.x
+labug1.f
+large_vec.f
+le.f
+select.f
+short.f
+u77-test.f & u77-test.x
+
+Directory g77.f-torture/noncompile
+19981216-0.f Y Accepted by gfortran
+19990218-1.f Y g77 issued warning.
+19990826-4.f ?
+19990905-1.f Y XFAIL 16520 gfortran ICE on invalid
+9263.f Y
+970626-2.f ?
+980615-0.f Y
+980616-0.f Y
+check0.f Y
+select_no_compile.f Y
--- /dev/null
+c { dg-do compile }
+CCC Abort fixed by:
+CCC1998-04-21 Jim Wilson <wilson@cygnus.com>
+CCC
+CCC * stmt.c (check_seenlabel): When search for line number note for
+CCC warning, handle case where there is no such note.
+ logical l(10)
+ integer i(10)
+ goto (10,20),l ! { dg-error "Selection expression in computed GOTO" "" }
+ goto (10,20),i ! { dg-error "Selection expression in computed GOTO" "" }
+ 10 stop
+ 20 end
--- /dev/null
+c { dg-do compile }
+ integer*1 one
+ integer*2 two
+ parameter (one=1)
+ parameter (two=2)
+ select case (I)
+ case (one) ! { dg-error "Expression in CASE statement" "" }
+ case (two) ! { dg-error "Expression in CASE statement" "" }
+ end select
+ end
+
projects / gcc.git / commitdiff