From 6aa57acc95aa3225ff703c22e0359cff174031fa Mon Sep 17 00:00:00 2001 From: David Billinghurst Date: Tue, 13 Jul 2004 13:27:52 +0000 Subject: [PATCH] README: New file 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 From-SVN: r84622 --- gcc/testsuite/ChangeLog | 14 ++ gcc/testsuite/gfortran.dg/g77/19981216-0.f | 90 ++++++++ gcc/testsuite/gfortran.dg/g77/19990218-1.f | 25 +++ gcc/testsuite/gfortran.dg/g77/19990905-1.f | 20 ++ gcc/testsuite/gfortran.dg/g77/19990905-1.f~ | 20 ++ gcc/testsuite/gfortran.dg/g77/9263.f | 11 + gcc/testsuite/gfortran.dg/g77/980615-0.f | 12 ++ gcc/testsuite/gfortran.dg/g77/980616-0.f | 10 + gcc/testsuite/gfortran.dg/g77/README | 201 ++++++++++++++++++ gcc/testsuite/gfortran.dg/g77/check0.f | 12 ++ .../gfortran.dg/g77/select_no_compile.f | 11 + 11 files changed, 426 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/g77/19981216-0.f create mode 100644 gcc/testsuite/gfortran.dg/g77/19990218-1.f create mode 100644 gcc/testsuite/gfortran.dg/g77/19990905-1.f create mode 100644 gcc/testsuite/gfortran.dg/g77/19990905-1.f~ create mode 100644 gcc/testsuite/gfortran.dg/g77/9263.f create mode 100644 gcc/testsuite/gfortran.dg/g77/980615-0.f create mode 100644 gcc/testsuite/gfortran.dg/g77/980616-0.f create mode 100755 gcc/testsuite/gfortran.dg/g77/README create mode 100644 gcc/testsuite/gfortran.dg/g77/check0.f create mode 100644 gcc/testsuite/gfortran.dg/g77/select_no_compile.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index b1a6fa30b84..c267bcfc468 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,17 @@ +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. diff --git a/gcc/testsuite/gfortran.dg/g77/19981216-0.f b/gcc/testsuite/gfortran.dg/g77/19981216-0.f new file mode 100644 index 00000000000..9460bd9cb71 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/19981216-0.f @@ -0,0 +1,90 @@ +c { dg-do compile } +* Resent-From: Craig Burley +* 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 +* 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 diff --git a/gcc/testsuite/gfortran.dg/g77/19990218-1.f b/gcc/testsuite/gfortran.dg/g77/19990218-1.f new file mode 100644 index 00000000000..2ac43903444 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/19990218-1.f @@ -0,0 +1,25 @@ +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 diff --git a/gcc/testsuite/gfortran.dg/g77/19990905-1.f b/gcc/testsuite/gfortran.dg/g77/19990905-1.f new file mode 100644 index 00000000000..393da945320 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/19990905-1.f @@ -0,0 +1,20 @@ +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 diff --git a/gcc/testsuite/gfortran.dg/g77/19990905-1.f~ b/gcc/testsuite/gfortran.dg/g77/19990905-1.f~ new file mode 100644 index 00000000000..5ff6ed8c3cb --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/19990905-1.f~ @@ -0,0 +1,20 @@ +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 "" } diff --git a/gcc/testsuite/gfortran.dg/g77/9263.f b/gcc/testsuite/gfortran.dg/g77/9263.f new file mode 100644 index 00000000000..77ce985758d --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/9263.f @@ -0,0 +1,11 @@ +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 diff --git a/gcc/testsuite/gfortran.dg/g77/980615-0.f b/gcc/testsuite/gfortran.dg/g77/980615-0.f new file mode 100644 index 00000000000..7e1f14fac38 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/980615-0.f @@ -0,0 +1,12 @@ +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 +* 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 } diff --git a/gcc/testsuite/gfortran.dg/g77/980616-0.f b/gcc/testsuite/gfortran.dg/g77/980616-0.f new file mode 100644 index 00000000000..75bd05e93ad --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/980616-0.f @@ -0,0 +1,10 @@ +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 +* 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 } diff --git a/gcc/testsuite/gfortran.dg/g77/README b/gcc/testsuite/gfortran.dg/g77/README new file mode 100755 index 00000000000..763b258305a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/README @@ -0,0 +1,201 @@ +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 diff --git a/gcc/testsuite/gfortran.dg/g77/check0.f b/gcc/testsuite/gfortran.dg/g77/check0.f new file mode 100644 index 00000000000..3febba9d02a --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/check0.f @@ -0,0 +1,12 @@ +c { dg-do compile } +CCC Abort fixed by: +CCC1998-04-21 Jim Wilson +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 diff --git a/gcc/testsuite/gfortran.dg/g77/select_no_compile.f b/gcc/testsuite/gfortran.dg/g77/select_no_compile.f new file mode 100644 index 00000000000..242562e9212 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/g77/select_no_compile.f @@ -0,0 +1,11 @@ +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 + -- 2.30.2