mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 10:50:51 +08:00
Code Issues Packages Projects Releases Wiki Activity

README: New file

Browse Source 
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
This commit is contained in:
David Billinghurst 2004-07-13 13:27:52 +00:00 committed by David Billinghurst
parent 1b3c2c2d72
commit 6aa57acc95
11 changed files with 426 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gcc/testsuite/ChangeLog
View File

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

90
gcc/testsuite/gfortran.dg/g77/19981216-0.f Normal file
View File

@ -0,0 +1,90 @@
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

25
gcc/testsuite/gfortran.dg/g77/19990218-1.f Normal file
View File

@ -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

20
gcc/testsuite/gfortran.dg/g77/19990905-1.f Normal file
View File

@ -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

20
gcc/testsuite/gfortran.dg/g77/19990905-1.f~ Normal file
View File

@ -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 "" }

11
gcc/testsuite/gfortran.dg/g77/9263.f Normal file
View File

@ -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

12
gcc/testsuite/gfortran.dg/g77/980615-0.f Normal file
View File

@ -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 <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 }

10
gcc/testsuite/gfortran.dg/g77/980616-0.f Normal file
View File

@ -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 <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 }

201
gcc/testsuite/gfortran.dg/g77/README Executable file
View File

@ -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

12
gcc/testsuite/gfortran.dg/g77/check0.f Normal file
View File

@ -0,0 +1,12 @@
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

11
gcc/testsuite/gfortran.dg/g77/select_no_compile.f Normal file
View File

@ -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