Skip to content

R
riscv-gcc-1
Commit 02665ea4 by Steven G. Kargl Committed by Steven G. Kargl
Options

* Replace tabs with spaces. 

Co-Authored-By: Paul Thomas <prthomas@drfccad.cea.fr>

From-SVN: r96009
parent 01c65e8a
Showing with 145 additions and 120 deletions
gcc/testsuite/ChangeLog
2005-03-06 Steven G. Kargl <kargls@comcast.net>
* gfortran.dg/g77/19990313-1.f: Replace tabs with spaces.
* gfortran.dg/g77/19990313-2.f: ditto
* gfortran.dg/g77/19990313-3.f: ditto
* gfortran.dg/g77/19990525-0.f: ditto
* gfortran.dg/g77/19990826-0.f: ditto
* gfortran.dg/g77/19990826-2.f: ditto
* gfortran.dg/g77/19990826-3.f: ditto
* gfortran.dg/g77/20000511-1.f: ditto
* gfortran.dg/g77/20000511-2.f: ditto
* gfortran.dg/g77/970625-2.f: ditto
* gfortran.dg/g77/980310-2.f: ditto
* gfortran.dg/g77/980310-3.f: ditto
* gfortran.dg/g77/980310-8.f: ditto
* gfortran.dg/g77/980519-2.f: ditto
* gfortran.dg/g77/alpha1.f: ditto
* gfortran.dg/g77/claus.f: ditto
* gfortran.dg/g77/erfc.f: ditto
* gfortran.dg/g77/short.f: ditto
* gfortran.fortran-torture/execute/data.f90: ditto
* gfortran.fortran-torture/execute/integer_select.f90: ditto
* gfortran.fortran-torture/execute/integer_select_1.f90: ditto
2005-03-06 John David Anglin <dave.anglin@nrc-cnrc.gc.ca> 2005-03-06 John David Anglin <dave.anglin@nrc-cnrc.gc.ca>
* lib/file-format.exp (gcc_target_object_format): Add check for som * lib/file-format.exp (gcc_target_object_format): Add check for som
...@@ -19,8 +43,8 @@ ...@@ -19,8 +43,8 @@
2005-03-05 Steven G. Kargl <kargls@comcast.net> 2005-03-05 Steven G. Kargl <kargls@comcast.net>
Paul Thomas <prthomas@drfccad.cea.fr> Paul Thomas <prthomas@drfccad.cea.fr>
* PR19754_1.f90: New test. * gfortran.dg/PR19754_1.f90: New test.
* PR19754_2.f90: ditto. * gfortran.dg/PR19754_2.f90: ditto.
2005-03-05 Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net> 2005-03-05 Kriang Lerdsuwanakij <lerdsuwa@users.sourceforge.net>
......
gcc/testsuite/gfortran.dg/g77/19990313-1.f
c { dg-do run } c { dg-do run }
integer *8 foo, bar integer *8 foo, bar
double precision r double precision r
data r/4d10/ data r/4d10/
foo = 4d10 foo = 4d10
bar = r bar = r
......
gcc/testsuite/gfortran.dg/g77/19990313-2.f
c { dg-do run } c { dg-do run }
integer *8 foo, bar integer *8 foo, bar
complex c complex c
data c/(4e10,0)/ data c/(4e10,0)/
foo = 4e10 foo = 4e10
bar = c bar = c
......
gcc/testsuite/gfortran.dg/g77/19990313-3.f
c { dg-do run } c { dg-do run }
integer *8 foo, bar integer *8 foo, bar
double complex c double complex c
data c/(4d10,0)/ data c/(4d10,0)/
foo = 4d10 foo = 4d10
bar = c bar = c
......
gcc/testsuite/gfortran.dg/g77/19990525-0.f
...@@ -15,24 +15,24 @@ c { dg-do compile } ...@@ -15,24 +15,24 @@ c { dg-do compile }
* *
* Run the following through g77: * Run the following through g77:
* *
subroutine a subroutine a
character*2 string1 character*2 string1
character*2 string2 character*2 string2
character*4 string3 character*4 string3
string1 = 's1' string1 = 's1'
string2 = 's2' string2 = 's2'
c c
c the next 2 lines are ok. c the next 2 lines are ok.
string3 = (string1 // string2) string3 = (string1 // string2)
call b(string1//string2) call b(string1//string2)
c c
c this line gives gcc/f/com.c:10660: failed assertion `hook' c this line gives gcc/f/com.c:10660: failed assertion `hook'
call b((string1//string2)) call b((string1//string2))
end end
* *
* the output from: * the output from:
* *
* /usr/local/egcs-19990418/bin/g77 --verbose -c D.f * /usr/local/egcs-19990418/bin/g77 --verbose -c D.f
* *
* is: * is:
* *
......
gcc/testsuite/gfortran.dg/g77/19990826-0.f
...@@ -16,5 +16,5 @@ c { dg-do run } ...@@ -16,5 +16,5 @@ c { dg-do run }
* It seems to work fine if I change it to the generic NINT(). Probably * It seems to work fine if I change it to the generic NINT(). Probably
* a name pollution problem in the new C library, but it seems bad. no? * a name pollution problem in the new C library, but it seems bad. no?
* Thanks, * Thanks,
* Rick Niles. * Rick Niles.
gcc/testsuite/gfortran.dg/g77/19990826-2.f
c { dg-do run } c { dg-do run }
* From: "Billinghurst, David (RTD)" <David.Billinghurst@riotinto.com.au> * From: "Billinghurst, David (RTD)" <David.Billinghurst@riotinto.com.au>
* Subject: RE: single precision complex bug in g77 - was Testing g77 with LA * Subject: RE: single precision complex bug in g77 - was Testing g77 with LA
* PACK 3.0 * PACK 3.0
* Date: Thu, 8 Jul 1999 00:55:11 +0100 * Date: Thu, 8 Jul 1999 00:55:11 +0100
* X-UIDL: b00d9d8081a36fef561b827d255dd4a5 * X-UIDL: b00d9d8081a36fef561b827d255dd4a5
......
gcc/testsuite/gfortran.dg/g77/20000511-1.f
...@@ -14,9 +14,9 @@ C -ffast-math ICE provoked by this conditional ...@@ -14,9 +14,9 @@ C -ffast-math ICE provoked by this conditional
C C
C code for both increments equal to 1 C code for both increments equal to 1
C C
do i= 1,n do i= 1,n
sy(i)= sy(i)+sa*sx(i) sy(i)= sy(i)+sa*sx(i)
enddo enddo
endif endif
return return
end end
gcc/testsuite/gfortran.dg/g77/20000511-2.f
...@@ -47,16 +47,16 @@ C Multiply by inv(L). ...@@ -47,16 +47,16 @@ C Multiply by inv(L).
C C
do j= 1,n-1 do j= 1,n-1
C the following min() intrinsic provokes this bug C the following min() intrinsic provokes this bug
lm= min(kl,n-j) lm= min(kl,n-j)
jp= ipiv(j) jp= ipiv(j)
t= work(jp) t= work(jp)
if(jp.ne.j)then if(jp.ne.j)then
C but only when combined with this if block C but only when combined with this if block
work(jp)= work(j) work(jp)= work(j)
work(j)= t work(j)= t
endif endif
C and this subroutine call C and this subroutine call
call saxpy(lm,-t,ab(kd+1,j),1,work(j+1),1) call saxpy(lm,-t,ab(kd+1,j),1,work(j+1),1)
enddo enddo
return return
end end
gcc/testsuite/gfortran.dg/g77/970625-2.f
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
* Subject: Re: testing 970624. * Subject: Re: testing 970624.
* In-Reply-To: <199706251027.GAA07892@churchy.gnu.ai.mit.edu> * In-Reply-To: <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
* References: <199706251018.MAA21538@nu> * References: <199706251018.MAA21538@nu>
* <199706251027.GAA07892@churchy.gnu.ai.mit.edu> * <199706251027.GAA07892@churchy.gnu.ai.mit.edu>
* X-Mailer: VM 6.30 under Emacs 19.34.1 * X-Mailer: VM 6.30 under Emacs 19.34.1
* Content-Type: text/plain; charset=US-ASCII * Content-Type: text/plain; charset=US-ASCII
* *
...@@ -24,7 +24,7 @@ ...@@ -24,7 +24,7 @@
* *
* Regards, * Regards,
* -- * --
* ===== R.Hooft@EuroMail.com http://www.Sander.EMBL-Heidelberg.DE/rob/ == * ===== R.Hooft@EuroMail.com http://www.Sander.EMBL-Heidelberg.DE/rob/ ==
* ==== In need of protein modeling? http://www.Sander.EMBL-Heidelberg.DE/whatif/ * ==== In need of protein modeling? http://www.Sander.EMBL-Heidelberg.DE/whatif/
* Validation of protein structures? http://biotech.EMBL-Heidelberg.DE:8400/ ==== * Validation of protein structures? http://biotech.EMBL-Heidelberg.DE:8400/ ====
* == PGPid 0xFA19277D == Use Linux! Free Software Rules The World! ============= * == PGPid 0xFA19277D == Use Linux! Free Software Rules The World! =============
......
gcc/testsuite/gfortran.dg/g77/980310-2.f
...@@ -33,12 +33,12 @@ C doesn't exist in the g77 runtime) ...@@ -33,12 +33,12 @@ C doesn't exist in the g77 runtime)
C C
C RND - Return a random integer mod n C RND - Return a random integer mod n
C C
INTEGER FUNCTION RND (N) INTEGER FUNCTION RND (N)
IMPLICIT INTEGER (A-Z) IMPLICIT INTEGER (A-Z)
REAL RAND REAL RAND
COMMON /SEED/ RNSEED COMMON /SEED/ RNSEED
RND = RAND(RNSEED)*FLOAT(N) RND = RAND(RNSEED)*FLOAT(N)
RETURN RETURN
END END
gcc/testsuite/gfortran.dg/g77/980310-3.f
c { dg-do compile } c { dg-do compile }
c c
c This demonstrates a problem with g77 and pic on x86 where c This demonstrates a problem with g77 and pic on x86 where
c egcs 1.0.1 and earlier will generate bogus assembler output. c egcs 1.0.1 and earlier will generate bogus assembler output.
c unfortunately, gas accepts the bogus acssembler output and c unfortunately, gas accepts the bogus acssembler output and
c generates code that almost works. c generates code that almost works.
c c
......
gcc/testsuite/gfortran.dg/g77/980310-8.f
...@@ -4,19 +4,20 @@ C Subject: egcs-g77 and array indexing ...@@ -4,19 +4,20 @@ C Subject: egcs-g77 and array indexing
C Reply-To: etseidl@jutland.ca.sandia.gov C Reply-To: etseidl@jutland.ca.sandia.gov
C Date: Wed, 26 Nov 1997 10:38:27 -0800 C Date: Wed, 26 Nov 1997 10:38:27 -0800
C From: Edward Seidl <etseidl@jutland.ca.sandia.gov> C From: Edward Seidl <etseidl@jutland.ca.sandia.gov>
C C
C I have some horrible spaghetti code I'm trying compile with egcs-g77, C I have some horrible spaghetti code I'm trying compile with egcs-g77,
C but it's puking on code like the example below. I have no idea if it's C but it's puking on code like the example below. I have no idea if it's
C legal fortran or not, and I'm in no position to change it. All I do know C legal fortran or not, and I'm in no position to change it. All I do know
C is it compiles with a number of other compilers, including f2c and C is it compiles with a number of other compilers, including f2c and
C g77-0.5.19.1/gcc-2.7.2.1. When I try to compile with egcs-2.90.18 971122 C g77-0.5.19.1/gcc-2.7.2.1. When I try to compile with egcs-2.90.18 971122
C I get the following (on both i686-pc-linux-gnu and alphaev56-unknown-linux-gnu): C I get the following (on both i686-pc-linux-gnu and
C C alphaev56-unknown-linux-gnu):
C foo.f: In subroutine `foobar': C
C foo.f:11: Cfoo.f: In subroutine `foobar':
C subroutine foobar(norb,nnorb) Cfoo.f:11:
C ^ C subroutine foobar(norb,nnorb)
C Array `norb' at (^) is too large to handle C ^
CArray `norb' at (^) is too large to handle
program foo program foo
implicit integer(A-Z) implicit integer(A-Z)
......
gcc/testsuite/gfortran.dg/g77/980519-2.f
...@@ -40,10 +40,10 @@ c Next declaration added on transfer to gfortran testsuite ...@@ -40,10 +40,10 @@ c Next declaration added on transfer to gfortran testsuite
common /Idim/ nlay, nlayz common /Idim/ nlay, nlayz
common /Idim/ n_work common /Idim/ n_work
common /Idim/ nb_calls common /Idim/ nb_calls
real Xsp, Ysp, Xrcv, Yrcv real Xsp, Ysp, Xrcv, Yrcv
real in( jT_f-hd_T : jT_l ) real in( jT_f-hd_T : jT_l )
in( jT_f-hd_T ) = Xsp in( jT_f-hd_T ) = Xsp
in( jT_f-hd_T + 1 ) = Ysp in( jT_f-hd_T + 1 ) = Ysp
in( jT_f-hd_T + 2 ) = Xrcv in( jT_f-hd_T + 2 ) = Xrcv
......
gcc/testsuite/gfortran.dg/g77/alpha1.f
...@@ -19,8 +19,8 @@ C at this point! ...@@ -19,8 +19,8 @@ C at this point!
! !
!if { [ishost "i\[34567\]86-*-*"] } { !if { [ishost "i\[34567\]86-*-*"] } {
! if { [istarget "mmix-knuth-mmixware"] ! if { [istarget "mmix-knuth-mmixware"]
! || [istarget "powerpc-*-*"] } { ! || [istarget "powerpc-*-*"] } {
! set torture_compile_xfail [istarget] ! set torture_compile_xfail [istarget]
! } ! }
!} !}
! !
......
gcc/testsuite/gfortran.dg/g77/claus.f
...@@ -7,8 +7,8 @@ c { dg-do run } ...@@ -7,8 +7,8 @@ c { dg-do run }
k=1 k=1
n=2 n=2
ind=k-n+2 ind=k-n+2
if (ind /= 1) call abort if (ind /= 1) call abort
if (ab(ind) /= 1) call abort if (ab(ind) /= 1) call abort
if (k-n+2 /= 1) call abort if (k-n+2 /= 1) call abort
if (ab(k-n+2) /= 1) call abort if (ab(k-n+2) /= 1) call abort
END END
gcc/testsuite/gfortran.dg/g77/erfc.f
c { dg-do run } c { dg-do run }
c============================================== test.f c============================================== test.f
real x, y real x, y
real*8 x1, y1 real*8 x1, y1
x=0. x=0.
y = erfc(x) y = erfc(x)
if (y .ne. 1.) call abort if (y .ne. 1.) call abort
x=1.1 x=1.1
y = erfc(x) y = erfc(x)
if (abs(y - .1197949) .ge. 1.e-6) call abort if (abs(y - .1197949) .ge. 1.e-6) call abort
* modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas. c modified from x=10, y .gt. 1.5e-44 to avoid lack of -mieee on Alphas.
x=8 x=8
y = erfc(x) y = erfc(x)
if (y .gt. 1.2e-28) call abort if (y .gt. 1.2e-28) call abort
x1=0. x1=0.
y1 = erfc(x1) y1 = erfc(x1)
if (y1 .ne. 1.) call abort if (y1 .ne. 1.) call abort
x1=1.1d0 x1=1.1d0
y1 = erfc(x1) y1 = erfc(x1)
if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort if (abs(y1 - .1197949d0) .ge. 1.d-6) call abort
x1=10 x1=10
y1 = erfc(x1) y1 = erfc(x1)
if (y1 .gt. 1.5d-44) call abort if (y1 .gt. 1.5d-44) call abort
end end
c================================================= c=================================================
!output: !output:
! 0. 1.875 ! 0. 1.875
......
gcc/testsuite/gfortran.dg/g77/short.f
...@@ -38,16 +38,16 @@ c a four-way average of rhobar ...@@ -38,16 +38,16 @@ c a four-way average of rhobar
c another four-way average of rhobar c another four-way average of rhobar
do 270 k=0,N do 270 k=0,N
rtmp1 = z(2,2,k) rtmp1 = z(2,2,k)
rtmp2 = z(1,2,k) rtmp2 = z(1,2,k)
rtmp3 = z(2,1,k) rtmp3 = z(2,1,k)
rtmp4 = z(1,1,k) rtmp4 = z(1,1,k)
yzin2(k) = 0.25 * yzin2(k) = 0.25 *
& ( rtmp1 + rtmp2 + rtmp3 + rtmp4 ) & ( rtmp1 + rtmp2 + rtmp3 + rtmp4 )
270 continue 270 continue
do k=0,N do k=0,N
if (yzin1(k) .ne. yzin2(k)) call abort if (yzin1(k) .ne. yzin2(k)) call abort
enddo enddo
if (yzin1(0) .ne. -1371.) call abort if (yzin1(0) .ne. -1371.) call abort
if (yzin1(1) .ne. -685.5) call abort if (yzin1(1) .ne. -685.5) call abort
......
gcc/testsuite/gfortran.fortran-torture/execute/data.f90
! Program to test data statement ! Program to test data statement
program data program data
call sub1() call sub1()
call sub2() call sub2()
end end
subroutine sub1() subroutine sub1()
integer i integer i
type tmp type tmp
integer, dimension(4)::a integer, dimension(4)::a
real :: r real :: r
end type end type
type tmp1 type tmp1
type (tmp) t1(4) type (tmp) t1(4)
...@@ -58,7 +58,7 @@ ...@@ -58,7 +58,7 @@
if (tmp2(2)%b .ne. 0) call abort if (tmp2(2)%b .ne. 0) call abort
end end
subroutine sub2() subroutine sub2()
integer a(4,4), b(10) integer a(4,4), b(10)
integer i,j,k integer i,j,k
real r,t real r,t
......
gcc/testsuite/gfortran.fortran-torture/execute/integer_select.f90
...@@ -8,20 +8,20 @@ PROGRAM Test_INTEGER_select ...@@ -8,20 +8,20 @@ PROGRAM Test_INTEGER_select
SELECT CASE (I) SELECT CASE (I)
CASE (:-1) CASE (:-1)
CALL abort CALL abort
CASE (1:) CASE (1:)
CALL abort CALL abort
CASE DEFAULT CASE DEFAULT
CONTINUE CONTINUE
END SELECT END SELECT
SELECT CASE (I) SELECT CASE (I)
CASE (3,2,1) CASE (3,2,1)
CALL abort CALL abort
CASE (0) CASE (0)
CONTINUE CONTINUE
CASE DEFAULT CASE DEFAULT
call abort call abort
END SELECT END SELECT
! Not aborted by here, so it worked ! Not aborted by here, so it worked
...@@ -31,40 +31,40 @@ PROGRAM Test_INTEGER_select ...@@ -31,40 +31,40 @@ PROGRAM Test_INTEGER_select
SELECT CASE (I) SELECT CASE (I)
CASE (:-1) CASE (:-1)
CALL abort CALL abort
CASE (1:) CASE (1:)
CONTINUE CONTINUE
CASE DEFAULT CASE DEFAULT
CALL abort CALL abort
END SELECT END SELECT
SELECT CASE (I) SELECT CASE (I)
CASE (3,2,1,:0) CASE (3,2,1,:0)
CALL abort CALL abort
CASE (maxI) CASE (maxI)
CONTINUE CONTINUE
CASE DEFAULT CASE DEFAULT
call abort call abort
END SELECT END SELECT
I = minI I = minI
SELECT CASE (I) SELECT CASE (I)
CASE (:-1) CASE (:-1)
CONTINUE CONTINUE
CASE (1:) CASE (1:)
CALL abort CALL abort
CASE DEFAULT CASE DEFAULT
CALL abort CALL abort
END SELECT END SELECT
SELECT CASE (I) SELECT CASE (I)
CASE (3:,2,1,0) CASE (3:,2,1,0)
CALL abort CALL abort
CASE (minI) CASE (minI)
CONTINUE CONTINUE
CASE DEFAULT CASE DEFAULT
call abort call abort
END SELECT END SELECT
END END
......
gcc/testsuite/gfortran.fortran-torture/execute/integer_select_1.f90
INTEGER :: I = 1 INTEGER :: I = 1
SELECT CASE (I) SELECT CASE (I)
CASE (-3:-5) ! Can never be matched CASE (-3:-5) ! Can never be matched
CALL abort CALL abort
CASE (1) CASE (1)
CONTINUE CONTINUE
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment